/[MITgcm]/MITgcm/model/src/write_state.F
ViewVC logotype

Diff of /MITgcm/model/src/write_state.F

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

revision 1.42 by edhill, Fri Sep 10 12:19:30 2004 UTC revision 1.44 by edhill, Mon Sep 27 17:50:48 2004 UTC
# Line 55  C     !USES: Line 55  C     !USES:
55  #include "DYNVARS.h"  #include "DYNVARS.h"
56  #include "GRID.h"  #include "GRID.h"
57  #include "EOS.h"  #include "EOS.h"
58  #ifdef ALLOW_PASSIVE_TRACER  
 #include "TR1.h"  
 #endif  
59        LOGICAL  DIFFERENT_MULTIPLE        LOGICAL  DIFFERENT_MULTIPLE
60        EXTERNAL DIFFERENT_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
61        INTEGER  IO_ERRCOUNT        INTEGER  IO_ERRCOUNT
# Line 167  C         Write dynvars using the MNC pa Line 165  C         Write dynvars using the MNC pa
165            CALL MNC_CW_RL_W('D','state',0,0,'model_time',myTime,myThid)            CALL MNC_CW_RL_W('D','state',0,0,'model_time',myTime,myThid)
166            CALL MNC_CW_RL_W('D','state',0,0,'U', uVel, myThid)            CALL MNC_CW_RL_W('D','state',0,0,'U', uVel, myThid)
167            CALL MNC_CW_RL_W('D','state',0,0,'V', vVel, myThid)            CALL MNC_CW_RL_W('D','state',0,0,'V', vVel, myThid)
168            CALL MNC_CW_RL_W('D','state',0,0,'T', theta, myThid)            CALL MNC_CW_RL_W('D','state',0,0,'Temp', theta, myThid)
169            CALL MNC_CW_RL_W('D','state',0,0,'S', salt, myThid)            CALL MNC_CW_RL_W('D','state',0,0,'S', salt, myThid)
170            CALL MNC_CW_RL_W('D','state',0,0,'Eta', etaN, myThid)            CALL MNC_CW_RL_W('D','state',0,0,'Eta', etaN, myThid)
171            CALL MNC_CW_RL_W('D','state',0,0,'W', wVel, myThid)            CALL MNC_CW_RL_W('D','state',0,0,'W', wVel, myThid)
Legend:
Removed from v.1.42  
changed lines
  Added in v.1.44
  ViewVC Help
Powered by ViewVC 1.1.22