/[MITgcm]/MITgcm/pkg/thsice/thsice_write_pickup.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_write_pickup.F

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

revision 1.2 by edhill, Fri Jun 24 04:36:54 2005 UTC revision 1.4 by jmc, Sat Nov 5 00:57:00 2005 UTC
# Line 26  C     === Global variables === Line 26  C     === Global variables ===
26  #include "THSICE_PARAMS.h"  #include "THSICE_PARAMS.h"
27  #include "THSICE_VARS.h"  #include "THSICE_VARS.h"
28    
 C     == Common blocks ==  
       COMMON /PCKP_GBLFLS/ globalFile  
       LOGICAL globalFile  
   
29  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
30  C     == Routine arguments ==  C     == Routine arguments ==
31        INTEGER prec        INTEGER prec
# Line 72  C     == Local variables == Line 68  C     == Local variables ==
68    
69  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
70        IF ( thSIce_pickup_write_mnc ) THEN        IF ( thSIce_pickup_write_mnc ) THEN
71          CALL MNC_CW_SET_UDIM(fn, -1, myThid)          IF ( permCheckPoint ) THEN
72          CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid)            WRITE(fn,'(A)') 'pickup_ic'
73            ELSE
74              WRITE(fn,'(A,A)') 'pickup_ic.',checkPtSuff(nCheckLev)
75            ENDIF
76    C       First ***define*** the file group name
77          CALL MNC_CW_SET_UDIM(fn, 0, myThid)          CALL MNC_CW_SET_UDIM(fn, 0, myThid)
78            IF ( permCheckPoint ) THEN
79              CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, 0, myThid)
80            ELSE
81              CALL MNC_CW_SET_CITER(fn, 2, -1, -1, -1, myThid)
82            ENDIF
83    C       Then set the actual unlimited dimension
84            CALL MNC_CW_SET_UDIM(fn, 1, myThid)
85            CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid)
86  C       CALL MNC_CW_RL_W_S('D',fn,0,0,'T', myTime, myThid)  C       CALL MNC_CW_RL_W_S('D',fn,0,0,'T', myTime, myThid)
87          CALL MNC_CW_RL_W('D',fn,0,0,'iceMask',   iceMask,   myThid)          CALL MNC_CW_RL_W('D',fn,0,0,'iceMask',   iceMask,   myThid)
88          CALL MNC_CW_RL_W('D',fn,0,0,'iceHeight', iceHeight, myThid)          CALL MNC_CW_RL_W('D',fn,0,0,'iceHeight', iceHeight, myThid)
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22