/[MITgcm]/MITgcm/pkg/aim_v23/aim_write_phys.F
ViewVC logotype

Diff of /MITgcm/pkg/aim_v23/aim_write_phys.F

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

revision 1.1 by jmc, Fri Aug 4 22:27:46 2006 UTC revision 1.2 by jmc, Tue Jun 9 22:44:02 2009 UTC
# Line 36  C     kLev   :: level index to write (0 Line 36  C     kLev   :: level index to write (0
36  C     bi,bj  :: Tile index  C     bi,bj  :: Tile index
37  C     iRec   :: reccord number in the output file  C     iRec   :: reccord number in the output file
38  C     myIter :: Current iteration number in simulation  C     myIter :: Current iteration number in simulation
39  C     myThid :: Thread number for this instance of the routine  C     myThid :: my Thread Id number
40        CHARACTER*(*) pref, suff        CHARACTER*(*) pref, suff
41        INTEGER nNr        INTEGER nNr
42        _RL field(sNx,sNy,nNr,MAX_NO_THREADS)        _RL field(sNx,sNy,nNr,MAX_NO_THREADS)
# Line 54  C     !LOCAL VARIABLES: Line 54  C     !LOCAL VARIABLES:
54        INTEGER iL        INTEGER iL
55        INTEGER i, j, k, Katm, nLoc        INTEGER i, j, k, Katm, nLoc
56        INTEGER ith, biLoc, bjLoc        INTEGER ith, biLoc, bjLoc
   
57  CEOP  CEOP
58    
59  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
# Line 129  C-     Do simple copy Line 128  C-     Do simple copy
128           ENDDO           ENDDO
129          ENDIF          ENDIF
130    
131  C--   Write to file:  C--   Write to file: note: call with myThArg=0 => single thread job
132          CALL WRITE_LOCAL_RL( pref, suff, nLoc, tmpFld,          CALL WRITE_LOCAL_RL( pref, suff, nLoc, tmpFld,
133       &                       biLoc, bjLoc, iRec, myIter, myThid )       &                       biLoc, bjLoc, iRec, myIter, 0 )
134    
135  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
136    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22