[MITgcm-devel] tutorial_global_oce_optim

[david ferreira]

Hi Patrick,
That's indeed a very nice piece of code that I
swept under the carpet and then forgot.
There must be a way to do this properly.
I'll try to fix it tomorrow.
david


Patrick Heimbach wrote:
>
> PS:
> It's probably in
> code_ad/cost_weights.F
> block
>        open(gwunit, file='Err_levitus_15layer.bin',
>      &               status='old', form='unformatted',
>      &     access = 'sequential'   )
>        read(gwunit) (wti(k), k=1,nr)
>        close(gwunit)
>
> Not sure (but don't think) unformatted sequential I/O is portable
> across ia32 and ia64 (size of trailing COS blocks).
> Might be worth changing to direct access (as usual).
>
> -p.
>
> On Jun 21, 2008, at 10:21 AM, Patrick Heimbach wrote:
>
>>
>> Hi David,
>>
>> I fixed a few things in this verif.,
>> one of which was related to my changes yesterday (TAF -nonew_arg).
>> When I try to run it on ross or weddell I am getting a weird crash
>>
>> apparent state: unit 9 named Err_levitus_15layer.bin
>> lately reading sequential unformatted external IO
>> Abort
>>
>> This problem does *not* occur on faulks.
>> So looks like some compiler-dependent piece of code.
>>
>> Cheers
>> -Patrick
>>
>> ---
>> Patrick Heimbach | heimbach at mit.edu | http://www.mit.edu/~heimbach
>> MIT | EAPS 54-1518 | 77 Massachusetts Ave | Cambridge MA 02139 USA
>> FON +1-617-253-5259 | FAX +1-617-253-4464 | SKYPE patrick.heimbach
>>
>>
>> _______________________________________________
>> MITgcm-devel mailing list
>> MITgcm-devel at mitgcm.org
>> http://mitgcm.org/mailman/listinfo/mitgcm-devel
>
> ---
> Patrick Heimbach | heimbach at mit.edu | http://www.mit.edu/~heimbach
> MIT | EAPS 54-1518 | 77 Massachusetts Ave | Cambridge MA 02139 USA
> FON +1-617-253-5259 | FAX +1-617-253-4464 | SKYPE patrick.heimbach
>
>
> _______________________________________________
> MITgcm-devel mailing list
> MITgcm-devel at mitgcm.org
> http://mitgcm.org/mailman/listinfo/mitgcm-devel