/[MITgcm]/MITgcm/pkg/seaice/seaice_pickup.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_pickup.F

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

revision 1.15 by mlosch, Sat Dec 9 20:15:33 2006 UTC revision 1.16 by mlosch, Wed Dec 20 12:25:15 2006 UTC
# Line 39  C--    Going to do some IO. Make everyon Line 39  C--    Going to do some IO. Make everyon
39    
40  C--    Read ice model fields  C--    Read ice model fields
41         WRITE(fn,'(A,I10.10)') 'pickup_seaice.',nIter0         WRITE(fn,'(A,I10.10)') 'pickup_seaice.',nIter0
42  #ifdef SEAICE_MULTILEVEL  #ifdef SEAICE_MULTICATEGORY
43         CALL MDSREADFIELD         CALL MDSREADFIELD
44       &      ( fn, precFloat64, 'RL', MULTDIM, TICES, 1, myThid )       &      ( fn, precFloat64, 'RL', MULTDIM, TICES, 1, myThid )
45         CALL MDSREADFIELD( fn, precFloat64, 'RL', 1, YNEG , 8, myThid )         CALL MDSREADFIELD( fn, precFloat64, 'RL', 1, YNEG , 8, myThid )
# Line 58  C--    Read ice model fields Line 58  C--    Read ice model fields
58       &       seaice_sigma12, 24, myThid )       &       seaice_sigma12, 24, myThid )
59         ENDIF         ENDIF
60  #endif /* SEAICE_ALLOW_EVP */  #endif /* SEAICE_ALLOW_EVP */
61  #else /* SEAICE_MULTILEVEL */  #else /* SEAICE_MULTICATEGORY */
62         CALL MDSREADFIELD( fn, precFloat64, 'RL', 1, TICE , 1, myThid )         CALL MDSREADFIELD( fn, precFloat64, 'RL', 1, TICE , 1, myThid )
63         CALL MDSREADFIELD( fn, precFloat64, 'RL', 1, YNEG , 2, myThid )         CALL MDSREADFIELD( fn, precFloat64, 'RL', 1, YNEG , 2, myThid )
64         CALL MDSREADFIELD( fn, precFloat64, 'RL', 1, HSNOW, 3, myThid )         CALL MDSREADFIELD( fn, precFloat64, 'RL', 1, HSNOW, 3, myThid )
# Line 76  C--    Read ice model fields Line 76  C--    Read ice model fields
76       &       seaice_sigma12, 18, myThid )       &       seaice_sigma12, 18, myThid )
77         ENDIF         ENDIF
78  #endif /* SEAICE_ALLOW_EVP */  #endif /* SEAICE_ALLOW_EVP */
79  #endif /* SEAICE_MULTILEVEL */  #endif /* SEAICE_MULTICATEGORY */
80    
81         _END_MASTER( myThid )         _END_MASTER( myThid )
82         _BARRIER         _BARRIER
# Line 137  C--    Write model fields Line 137  C--    Write model fields
137         ELSE         ELSE
138          WRITE(fn,'(A,A)') 'pickup_seaice.',checkPtSuff(nCheckLev)          WRITE(fn,'(A,A)') 'pickup_seaice.',checkPtSuff(nCheckLev)
139         ENDIF         ENDIF
140  #ifdef SEAICE_MULTILEVEL  #ifdef SEAICE_MULTICATEGORY
141         CALL MDSWRITEFIELD         CALL MDSWRITEFIELD
142       &      (fn,prec,lgf,'RL', MULTDIM,  TICES,1, myIt,myThid)       &      (fn,prec,lgf,'RL', MULTDIM,  TICES,1, myIt,myThid)
143         CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1,  YNEG, 8, myIt,myThid)         CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1,  YNEG, 8, myIt,myThid)
# Line 156  C--    Write model fields Line 156  C--    Write model fields
156       &         seaice_sigma12, 24, myIt,myThid)       &         seaice_sigma12, 24, myIt,myThid)
157         ENDIF         ENDIF
158  #endif /* SEAICE_ALLOW_EVP */  #endif /* SEAICE_ALLOW_EVP */
159  #else /* SEAICE_MULTILEVEL */  #else /* SEAICE_MULTICATEGORY */
160         CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1,  TICE, 1, myIt,myThid)         CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1,  TICE, 1, myIt,myThid)
161         CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1,  YNEG, 2, myIt,myThid)         CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1,  YNEG, 2, myIt,myThid)
162         CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1, HSNOW, 3, myIt,myThid)         CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1, HSNOW, 3, myIt,myThid)
# Line 174  C--    Write model fields Line 174  C--    Write model fields
174       &         seaice_sigma12, 18, myIt,myThid)       &         seaice_sigma12, 18, myIt,myThid)
175         ENDIF         ENDIF
176  #endif /* SEAICE_ALLOW_EVP */  #endif /* SEAICE_ALLOW_EVP */
177  #endif /* SEAICE_MULTILEVEL */  #endif /* SEAICE_MULTICATEGORY */
178    
179        RETURN        RETURN
180        END        END
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22