[MITgcm-devel] ctrl_set_globfld_??.F

[Martin Losch]

Hi Matt,

Do we really need this (something like this can be found in ctrl_set_globfld_[xy/xz/yz], but not in ctrl_set_globfld_xyz):
> CMM( add one for good measure
> CMM      do irec = nrec_nl*Nr+1, ncvarrecs(ivartype)
>       do irec = nrec_nl*Nr+1, ncvarrecs(ivartype)+1
> CMM)
>          call MDSWRITEFIELD( fname, ctrlprec, .FALSE., 'RL',
>      &        1, globfld2d,
>      &        irec,   optimcycle,  mythid)
>       enddo
?

it makes the size of the zero iteration ctrl field file (xx_*.0000000000.*.data) bigger than necessary, as far as I can see.

Martin