- Timestamp:
- 2017-10-04T20:08:33+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icerst.F90
r8564 r8592 147 147 END DO 148 148 149 ! MV MP 2016 150 IF ( nn_pnd_scheme > 0 ) THEN 151 DO jl = 1, jpl 152 WRITE(zchar,'(I2.2)') jl 153 znam = 'a_ip'//'_htc'//zchar 154 z2d(:,:) = a_ip(:,:,jl) 155 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) ! a_ip 156 znam = 'v_ip'//'_htc'//zchar 157 z2d(:,:) = v_ip(:,:,jl) 158 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) ! v_ip 159 END DO 160 ENDIF 161 ! END MV MP 2016 149 DO jl = 1, jpl 150 WRITE(zchar,'(I2.2)') jl 151 znam = 'a_ip'//'_htc'//zchar 152 z2d(:,:) = a_ip(:,:,jl) 153 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) ! a_ip 154 znam = 'v_ip'//'_htc'//zchar 155 z2d(:,:) = v_ip(:,:,jl) 156 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) ! v_ip 157 END DO 162 158 163 159 DO jl = 1, jpl … … 248 244 END DO 249 245 250 ! MV MP 2016 251 IF ( nn_pnd_scheme > 0 ) THEN 252 DO jl = 1, jpl 253 WRITE(zchar,'(I2.2)') jl 254 znam = 'a_ip'//'_htc'//zchar 255 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 256 a_ip(:,:,jl) = z2d(:,:) 257 znam = 'v_ip'//'_htc'//zchar 258 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 259 v_ip(:,:,jl) = z2d(:,:) 260 END DO 261 ENDIF 262 ! END MV MP 2016 246 DO jl = 1, jpl 247 WRITE(zchar,'(I2.2)') jl 248 znam = 'a_ip'//'_htc'//zchar 249 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 250 a_ip(:,:,jl) = z2d(:,:) 251 znam = 'v_ip'//'_htc'//zchar 252 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 253 v_ip(:,:,jl) = z2d(:,:) 254 END DO 263 255 264 256 DO jl = 1, jpl
Note: See TracChangeset
for help on using the changeset viewer.