Changeset 9455
- Timestamp:
- 2018-04-04T09:21:45+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/TOP_SRC/CFC/trcsms_cfc.F90
r9400 r9455 190 190 & 'at it= ', kt,' date= ', ndastp 191 191 IF(lwp) WRITE(numout,*) '~~~~' 192 jl = 0 192 193 DO jn = jp_cfc0, jp_cfc1 193 CALL iom_rstput( kt, nitrst, numrtw, 'qint_'//ctrcnm(jn), qint_cfc(:,:,jn) ) 194 jl = jl + 1 195 CALL iom_rstput( kt, nitrst, numrtw, 'qint_'//ctrcnm(jn), qint_cfc(:,:,jl) ) 194 196 END DO 195 197 ENDIF … … 230 232 !! ** Purpose : sets constants for CFC model 231 233 !!--------------------------------------------------------------------- 232 INTEGER :: jn 234 INTEGER :: jn, jl 233 235 !!---------------------------------------------------------------------- 234 236 ! … … 314 316 IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~' 315 317 ! 318 jl = 0 316 319 DO jn = jp_cfc0, jp_cfc1 317 CALL iom_get( numrtr, jpdom_autoglo, 'qint_'//ctrcnm(jn), qint_cfc(:,:,jn) ) 320 jl = jl + 1 321 CALL iom_get( numrtr, jpdom_autoglo, 'qint_'//ctrcnm(jn), qint_cfc(:,:,jl) ) 318 322 END DO 319 323 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.