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

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

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

revision 1.1.2.1 by heimbach, Tue Feb 5 20:23:58 2002 UTC revision 1.1.2.2 by heimbach, Thu Mar 21 03:55:16 2002 UTC
# Line 39  c     == routine arguments == Line 39  c     == routine arguments ==
39        integer ivartype        integer ivartype
40        character*( 80)   fname        character*( 80)   fname
41        character*  (9) masktype        character*  (9) masktype
42        _RL     weightfld( nobcs,nr,nsx,nsy )        _RL     weightfld( nr,nobcs )
43        integer nwettile(nsx,nsy,nr,nobcs)        integer nwettile(nsx,nsy,nr,nobcs)
44        integer mythid        integer mythid
45    
# Line 170  c--   Only the master thread will do I/O Line 170  c--   Only the master thread will do I/O
170  #ifdef ALLOW_NONDIMENSIONAL_CONTROL_IO  #ifdef ALLOW_NONDIMENSIONAL_CONTROL_IO
171                       globfldyz(bi,ip,j,bj,jp,k) =                       globfldyz(bi,ip,j,bj,jp,k) =
172       &                    globfldyz(bi,ip,j,bj,jp,k)/       &                    globfldyz(bi,ip,j,bj,jp,k)/
173       &                    sqrt(weightfld(iobcs,k,bi,bj))       &                    sqrt(weightfld(k,iobcs))
174  #endif  #endif
175                    else                    else
176                       globfldyz(bi,ip,j,bj,jp,k) = 0. _d 0                       globfldyz(bi,ip,j,bj,jp,k) = 0. _d 0
Legend:
Removed from v.1.1.2.1  
changed lines
  Added in v.1.1.2.2
  ViewVC Help
Powered by ViewVC 1.1.22