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

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

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

revision 1.45 by edhill, Thu Sep 23 03:28:42 2004 UTC revision 1.46 by edhill, Mon Sep 27 17:50:48 2004 UTC
# Line 198  c         CALL MDSREADFIELD(fn,prec,'RL' Line 198  c         CALL MDSREADFIELD(fn,prec,'RL'
198          CALL MNC_CW_SET_UDIM(fn, 1, myThid)          CALL MNC_CW_SET_UDIM(fn, 1, myThid)
199          CALL MNC_CW_RL_R('D',fn,0,0,'U',uVel, myThid)          CALL MNC_CW_RL_R('D',fn,0,0,'U',uVel, myThid)
200          CALL MNC_CW_RL_R('D',fn,0,0,'V',vVel, myThid)          CALL MNC_CW_RL_R('D',fn,0,0,'V',vVel, myThid)
201          CALL MNC_CW_RL_R('D',fn,0,0,'T',theta, myThid)          CALL MNC_CW_RL_R('D',fn,0,0,'Temp',theta, myThid)
202          CALL MNC_CW_RL_R('D',fn,0,0,'S',salt, myThid)          CALL MNC_CW_RL_R('D',fn,0,0,'S',salt, myThid)
203          CALL MNC_CW_RL_R('D',fn,0,0,'Eta',etaN, myThid)          CALL MNC_CW_RL_R('D',fn,0,0,'Eta',etaN, myThid)
204          CALL MNC_CW_RL_R('D',fn,0,0,'gUnm1',gUnm1, myThid)          CALL MNC_CW_RL_R('D',fn,0,0,'gUnm1',gUnm1, myThid)
# Line 492  C         &    myIter,myThid) Line 492  C         &    myIter,myThid)
492          CALL MNC_CW_SET_UDIM(fn, 0, myThid)          CALL MNC_CW_SET_UDIM(fn, 0, myThid)
493          CALL MNC_CW_RL_W('D',fn,0,0,'U', uVel, myThid)          CALL MNC_CW_RL_W('D',fn,0,0,'U', uVel, myThid)
494          CALL MNC_CW_RL_W('D',fn,0,0,'V', vVel, myThid)          CALL MNC_CW_RL_W('D',fn,0,0,'V', vVel, myThid)
495          CALL MNC_CW_RL_W('D',fn,0,0,'T', theta, myThid)          CALL MNC_CW_RL_W('D',fn,0,0,'Temp', theta, myThid)
496          CALL MNC_CW_RL_W('D',fn,0,0,'S', salt, myThid)          CALL MNC_CW_RL_W('D',fn,0,0,'S', salt, myThid)
497          CALL MNC_CW_RL_W('D',fn,0,0,'Eta', etaN, myThid)          CALL MNC_CW_RL_W('D',fn,0,0,'Eta', etaN, myThid)
498          CALL MNC_CW_RL_W('D',fn,0,0,'gUnm1', gUnm1, myThid)          CALL MNC_CW_RL_W('D',fn,0,0,'gUnm1', gUnm1, myThid)
Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46
  ViewVC Help
Powered by ViewVC 1.1.22