- Timestamp:
- 2020-05-13T14:49:18+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/ICE/ice1d.F90
r12915 r12919 147 147 148 148 ! convergence check 149 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: tice_cvg_1d !: convergence of ice/snow temperature (dT) [K] 149 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: tice_cvgerr_1d !: convergence of ice/snow temp (dT) [K] 150 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: tice_cvgstp_1d !: convergence of ice/snow temp (subtimestep) [-] 150 151 ! 151 152 !!---------------------- … … 227 228 ! 228 229 ii = ii + 1 229 ALLOCATE( tice_cvg _1d(jpij) , STAT=ierr(ii) )230 ALLOCATE( tice_cvgerr_1d(jpij) , tice_cvgstp_1d(jpij) , STAT=ierr(ii) ) 230 231 ! 231 232 ii = ii + 1
Note: See TracChangeset
for help on using the changeset viewer.