/[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.55 by edhill, Wed May 25 04:03:09 2005 UTC revision 1.56 by edhill, Sat Sep 10 18:30:06 2005 UTC
# Line 232  c         CALL MDSREADFIELD(fn,prec,'RL' Line 232  c         CALL MDSREADFIELD(fn,prec,'RL'
232                
233  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
234        IF (useMNC .AND. pickup_read_mnc) THEN        IF (useMNC .AND. pickup_read_mnc) THEN
235            WRITE(fn,'(A)') 'pickup'
236          CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid)          CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid)
237          CALL MNC_CW_SET_UDIM(fn, 1, myThid)          CALL MNC_CW_SET_UDIM(fn, 1, myThid)
238            CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, -1, myThid)
239          CALL MNC_CW_RL_R('D',fn,0,0,'U',uVel, myThid)          CALL MNC_CW_RL_R('D',fn,0,0,'U',uVel, myThid)
240          CALL MNC_CW_RL_R('D',fn,0,0,'V',vVel, myThid)          CALL MNC_CW_RL_R('D',fn,0,0,'V',vVel, myThid)
241          CALL MNC_CW_RL_R('D',fn,0,0,'Temp',theta, myThid)          CALL MNC_CW_RL_R('D',fn,0,0,'Temp',theta, myThid)
# Line 598  C         &    myIter,myThid) Line 600  C         &    myIter,myThid)
600    
601  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
602        IF (useMNC .AND. pickup_write_mnc) THEN        IF (useMNC .AND. pickup_write_mnc) THEN
603          CALL MNC_CW_SET_UDIM(fn, -1, myThid)          IF ( permCheckPoint ) THEN
604              WRITE(fn,'(A)') 'pickup'
605            ELSE
606              WRITE(fn,'(A,A)') 'pickup.',checkPtSuff(nCheckLev)
607            ENDIF
608            CALL MNC_CW_SET_UDIM(fn, 1, myThid)
609            IF ( permCheckPoint ) THEN
610              CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, 0, myThid)
611            ELSE
612              CALL MNC_CW_SET_CITER(fn, 2, -1, -1, -1, myThid)
613            ENDIF
614          CALL MNC_CW_RL_W_S('D',fn,0,0,'T', myTime, myThid)          CALL MNC_CW_RL_W_S('D',fn,0,0,'T', myTime, myThid)
         CALL MNC_CW_SET_UDIM(fn, 0, myThid)  
615          CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid)          CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid)
616          CALL MNC_CW_RL_W('D',fn,0,0,'U', uVel, myThid)          CALL MNC_CW_RL_W('D',fn,0,0,'U', uVel, myThid)
617          CALL MNC_CW_RL_W('D',fn,0,0,'V', vVel, myThid)          CALL MNC_CW_RL_W('D',fn,0,0,'V', vVel, myThid)
Legend:
Removed from v.1.55  
changed lines
  Added in v.1.56
  ViewVC Help
Powered by ViewVC 1.1.22