/[MITgcm]/MITgcm/pkg/cd_code/cd_code_write_pickup.F
ViewVC logotype

Diff of /MITgcm/pkg/cd_code/cd_code_write_pickup.F

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

revision 1.2 by jmc, Thu Oct 26 00:24:41 2006 UTC revision 1.3 by edhill, Fri Mar 2 16:42:39 2007 UTC
# Line 50  C     !LOCAL VARIABLES: Line 50  C     !LOCAL VARIABLES:
50  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
51        IF (useMNC .AND. pickup_write_mnc) THEN        IF (useMNC .AND. pickup_write_mnc) THEN
52  C       Read variables from the pickup file  C       Read variables from the pickup file
         CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid)  
53          CALL MNC_CW_SET_UDIM(fn, 1, myThid)          CALL MNC_CW_SET_UDIM(fn, 1, myThid)
54          IF ( permCheckPoint ) THEN          IF ( permCheckPoint ) THEN
55            CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, -1, myThid)            CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, -1, myThid)
# Line 63  C       Read variables from the pickup f Line 62  C       Read variables from the pickup f
62          CALL MNC_CW_RL_W('D',fn,0,0,'Unm1',Unm1, myThid)          CALL MNC_CW_RL_W('D',fn,0,0,'Unm1',Unm1, myThid)
63          CALL MNC_CW_RL_W('D',fn,0,0,'Vnm1',Vnm1, myThid)          CALL MNC_CW_RL_W('D',fn,0,0,'Vnm1',Vnm1, myThid)
64          CALL MNC_CW_RL_W('D',fn,0,0,'etaNm1', etaNm1, myThid)          CALL MNC_CW_RL_W('D',fn,0,0,'etaNm1', etaNm1, myThid)
65            CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid)
66        ENDIF        ENDIF
67  #endif /*  ALLOW_MNC  */  #endif /*  ALLOW_MNC  */
68    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22