/[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.11 by mlosch, Tue Mar 21 12:56:28 2006 UTC revision 1.12 by dimitri, Thu Jun 8 23:09:56 2006 UTC
# Line 48  C--    Read ice model fields Line 48  C--    Read ice model fields
48         CALL MDSREADFIELD( fn, precFloat64, 'RL', 3, HEFF , 6, myThid )         CALL MDSREADFIELD( fn, precFloat64, 'RL', 3, HEFF , 6, myThid )
49         CALL MDSREADFIELD( fn, precFloat64, 'RL', 3, AREA , 7, myThid )         CALL MDSREADFIELD( fn, precFloat64, 'RL', 3, AREA , 7, myThid )
50  #if (defined(SEAICE_CGRID) && defined(SEAICE_ALLOW_EVP))  #if (defined(SEAICE_CGRID) && defined(SEAICE_ALLOW_EVP))
51         CALL MDSREADFIELD( fn, precFloat64, 'RL', 1,         IF ( SEAICEuseEVP .AND. SEAICEuseEVPpickup ) THEN
52       &      seaice_sigma1,  22, myThid )            CALL MDSREADFIELD( fn, precFloat64, 'RL', 1,
53         CALL MDSREADFIELD( fn, precFloat64, 'RL', 1,       &         seaice_sigma1,  22, myThid )
54       &      seaice_sigma2,  23, myThid )            CALL MDSREADFIELD( fn, precFloat64, 'RL', 1,
55         CALL MDSREADFIELD( fn, precFloat64, 'RL', 1,       &         seaice_sigma2,  23, myThid )
56       &      seaice_sigma12, 24, myThid )            CALL MDSREADFIELD( fn, precFloat64, 'RL', 1,
57         &         seaice_sigma12, 24, myThid )
58           ENDIF
59  #endif /* SEAICE_ALLOW_EVP */  #endif /* SEAICE_ALLOW_EVP */
60  #else /* SEAICE_MULTILEVEL */  #else /* SEAICE_MULTILEVEL */
61         CALL MDSREADFIELD( fn, precFloat64, 'RL', 1, TICE , 1, myThid )         CALL MDSREADFIELD( fn, precFloat64, 'RL', 1, TICE , 1, myThid )
# Line 64  C--    Read ice model fields Line 66  C--    Read ice model fields
66         CALL MDSREADFIELD( fn, precFloat64, 'RL', 3, HEFF , 4, myThid )         CALL MDSREADFIELD( fn, precFloat64, 'RL', 3, HEFF , 4, myThid )
67         CALL MDSREADFIELD( fn, precFloat64, 'RL', 3, AREA , 5, myThid )         CALL MDSREADFIELD( fn, precFloat64, 'RL', 3, AREA , 5, myThid )
68  #if (defined(SEAICE_CGRID) && defined(SEAICE_ALLOW_EVP))  #if (defined(SEAICE_CGRID) && defined(SEAICE_ALLOW_EVP))
69         CALL MDSREADFIELD( fn, precFloat64, 'RL', 1,         IF ( SEAICEuseEVP .AND. SEAICEuseEVPpickup ) THEN
70       &      seaice_sigma1,  16, myThid )            CALL MDSREADFIELD( fn, precFloat64, 'RL', 1,
71         CALL MDSREADFIELD( fn, precFloat64, 'RL', 1,       &         seaice_sigma1,  16, myThid )
72       &      seaice_sigma2,  17, myThid )            CALL MDSREADFIELD( fn, precFloat64, 'RL', 1,
73         CALL MDSREADFIELD( fn, precFloat64, 'RL', 1,       &         seaice_sigma2,  17, myThid )
74       &      seaice_sigma12, 18, myThid )            CALL MDSREADFIELD( fn, precFloat64, 'RL', 1,
75         &         seaice_sigma12, 18, myThid )
76           ENDIF
77  #endif /* SEAICE_ALLOW_EVP */  #endif /* SEAICE_ALLOW_EVP */
78  #endif /* SEAICE_MULTILEVEL */  #endif /* SEAICE_MULTILEVEL */
79    
# Line 141  C--    Write model fields Line 145  C--    Write model fields
145         CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 3,  HEFF, 6, myIt,myThid)         CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 3,  HEFF, 6, myIt,myThid)
146         CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 3,  AREA, 7, myIt,myThid)         CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 3,  AREA, 7, myIt,myThid)
147  #if (defined(SEAICE_CGRID) && defined(SEAICE_ALLOW_EVP))  #if (defined(SEAICE_CGRID) && defined(SEAICE_ALLOW_EVP))
148         CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1,         IF ( xSEAICEuseEVP ) THEN
149       &      seaice_sigma1,  22, myIt,myThid)            CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1,
150         CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1,       &         seaice_sigma1,  22, myIt,myThid)
151       &      seaice_sigma2,  23, myIt,myThid)            CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1,
152         CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1,       &         seaice_sigma2,  23, myIt,myThid)
153       &      seaice_sigma12, 24, myIt,myThid)            CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1,
154         &         seaice_sigma12, 24, myIt,myThid)
155           ENDIF
156  #endif /* SEAICE_ALLOW_EVP */  #endif /* SEAICE_ALLOW_EVP */
157  #else /* SEAICE_MULTILEVEL */  #else /* SEAICE_MULTILEVEL */
158         CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1,  TICE, 1, myIt,myThid)         CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1,  TICE, 1, myIt,myThid)
# Line 157  C--    Write model fields Line 163  C--    Write model fields
163         CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 3,  HEFF, 4, myIt,myThid)         CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 3,  HEFF, 4, myIt,myThid)
164         CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 3,  AREA, 5, myIt,myThid)         CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 3,  AREA, 5, myIt,myThid)
165  #if (defined(SEAICE_CGRID) && defined(SEAICE_ALLOW_EVP))  #if (defined(SEAICE_CGRID) && defined(SEAICE_ALLOW_EVP))
166         CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1,         IF ( SEAICEuseEVP ) THEN
167       &      seaice_sigma1,  16, myIt,myThid)            CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1,
168         CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1,       &         seaice_sigma1,  16, myIt,myThid)
169       &      seaice_sigma2,  17, myIt,myThid)            CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1,
170         CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1,       &         seaice_sigma2,  17, myIt,myThid)
171       &      seaice_sigma12, 18, myIt,myThid)            CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1,
172         &         seaice_sigma12, 18, myIt,myThid)
173           ENDIF
174  #endif /* SEAICE_ALLOW_EVP */  #endif /* SEAICE_ALLOW_EVP */
175  #endif /* SEAICE_MULTILEVEL */  #endif /* SEAICE_MULTILEVEL */
176    
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22