/[MITgcm]/MITgcm/pkg/ctrl/ctrl_set_globfld_yz.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_set_globfld_yz.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.8 by heimbach, Tue Nov 16 05:42:12 2004 UTC revision 1.9 by heimbach, Fri Mar 24 22:59:39 2006 UTC
# Line 101  c     Initialise temporary file Line 101  c     Initialise temporary file
101  c--   Only the master thread will do I/O.  c--   Only the master thread will do I/O.
102        _BEGIN_MASTER( mythid )        _BEGIN_MASTER( mythid )
103    
104        nrec_nl=int(ncvarrecs(ivartype)/snx)        nrec_nl=int(ncvarrecs(ivartype)/Nx)
105        do irec = 1, nrec_nl        do irec = 1, nrec_nl
106           call MDSWRITEFIELD_3D_GL( fname, ctrlprec, 'RL',           call MDSWRITEFIELD_3D_GL( fname, ctrlprec, 'RL',
107       &        Nr, globfld3d,       &        Nr, globfld3d,
108       &        irec,   optimcycle,  mythid)       &        irec,   optimcycle,  mythid)
109        enddo        enddo
110    
111        do irec = nrec_nl*snx+1, ncvarrecs(ivartype)        do irec = nrec_nl*Nx+1, ncvarrecs(ivartype)
112           call MDSWRITEFIELD_YZ_GL( fname, ctrlprec, 'RL',           call MDSWRITEFIELD_YZ_GL( fname, ctrlprec, 'RL',
113       &        Nr, globfldyz,       &        Nr, globfldyz,
114       &        irec,   optimcycle,  mythid)       &        irec,   optimcycle,  mythid)
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22