Changeset 9909 for NEMO/trunk/src/TOP/PISCES/P4Z/p4zsms.F90
- Timestamp:
- 2018-07-10T12:09:06+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/TOP/PISCES/P4Z/p4zsms.F90
r9751 r9909 300 300 IF( ln_p5z ) THEN 301 301 IF( iom_varid( numrtr, 'sized', ldstop = .FALSE. ) > 0 ) THEN 302 CALL iom_get( numrtr, jpdom_autoglo, 'sizep' , size d(:,:,:) )303 CALL iom_get( numrtr, jpdom_autoglo, 'sizen' , size d(:,:,:) )302 CALL iom_get( numrtr, jpdom_autoglo, 'sizep' , sizep(:,:,:) ) 303 CALL iom_get( numrtr, jpdom_autoglo, 'sizen' , sizen(:,:,:) ) 304 304 CALL iom_get( numrtr, jpdom_autoglo, 'sized' , sized(:,:,:) ) 305 305 ELSE … … 321 321 CALL iom_rstput( kt, nitrst, numrtw, 'tcflxcum', t_oce_co2_flx_cum ) 322 322 IF( ln_p5z ) THEN 323 CALL iom_rstput( kt, nitrst, numrtw, 'sizep', size d(:,:,:) )324 CALL iom_rstput( kt, nitrst, numrtw, 'sizen', size d(:,:,:) )323 CALL iom_rstput( kt, nitrst, numrtw, 'sizep', sizep(:,:,:) ) 324 CALL iom_rstput( kt, nitrst, numrtw, 'sizen', sizen(:,:,:) ) 325 325 CALL iom_rstput( kt, nitrst, numrtw, 'sized', sized(:,:,:) ) 326 326 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.