/[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.54 by jmc, Sun May 15 03:02:08 2005 UTC revision 1.55 by edhill, Wed May 25 04:03:09 2005 UTC
# Line 599  C         &    myIter,myThid) Line 599  C         &    myIter,myThid)
599  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
600        IF (useMNC .AND. pickup_write_mnc) THEN        IF (useMNC .AND. pickup_write_mnc) THEN
601          CALL MNC_CW_SET_UDIM(fn, -1, myThid)          CALL MNC_CW_SET_UDIM(fn, -1, myThid)
602          CALL MNC_CW_I_W_S('I',fn,0,0,'T', myIter, myThid)          CALL MNC_CW_RL_W_S('D',fn,0,0,'T', myTime, myThid)
603          CALL MNC_CW_SET_UDIM(fn, 0, myThid)          CALL MNC_CW_SET_UDIM(fn, 0, myThid)
604            CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid)
605          CALL MNC_CW_RL_W('D',fn,0,0,'U', uVel, myThid)          CALL MNC_CW_RL_W('D',fn,0,0,'U', uVel, myThid)
606          CALL MNC_CW_RL_W('D',fn,0,0,'V', vVel, myThid)          CALL MNC_CW_RL_W('D',fn,0,0,'V', vVel, myThid)
607          CALL MNC_CW_RL_W('D',fn,0,0,'Temp', theta, myThid)          CALL MNC_CW_RL_W('D',fn,0,0,'Temp', theta, myThid)
Legend:
Removed from v.1.54  
changed lines
  Added in v.1.55
  ViewVC Help
Powered by ViewVC 1.1.22