- Timestamp:
- 2020-04-17T00:17:29+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/PISCES/P4Z/p4zsms.F90
r12537 r12759 320 320 ENDIF 321 321 ! 322 ! PISCES size proxy 323 IF( iom_varid( numrtr, 'sized', ldstop = .FALSE. ) > 0 ) THEN 324 CALL iom_get( numrtr, jpdom_autoglo, 'sized' , sized(:,:,:) ) 325 ELSE 326 sized(:,:,:) = 1. 327 ENDIF 328 IF( iom_varid( numrtr, 'sizen', ldstop = .FALSE. ) > 0 ) THEN 329 CALL iom_get( numrtr, jpdom_autoglo, 'sizen' , sizen(:,:,:) ) 330 ELSE 331 sizen(:,:,:) = 1. 332 ENDIF 333 322 334 ! PISCES-QUOTA specific part 323 335 IF( ln_p5z ) THEN 324 336 ! Read the size of the different phytoplankton groups 325 337 ! If not in the restart file, they are set to 1 326 IF( iom_varid( numrtr, 'size d', ldstop = .FALSE. ) > 0 ) THEN338 IF( iom_varid( numrtr, 'sizep', ldstop = .FALSE. ) > 0 ) THEN 327 339 CALL iom_get( numrtr, jpdom_autoglo, 'sizep' , sizep(:,:,:) ) 328 CALL iom_get( numrtr, jpdom_autoglo, 'sizen' , sizen(:,:,:) )329 CALL iom_get( numrtr, jpdom_autoglo, 'sized' , sized(:,:,:) )330 340 ELSE 331 341 sizep(:,:,:) = 1. 332 sizen(:,:,:) = 1.333 sized(:,:,:) = 1.334 342 ENDIF 335 343 ENDIF … … 346 354 CALL iom_rstput( kt, nitrst, numrtw, 'Silicamax', xksimax(:,:) ) ! Si max concentration 347 355 CALL iom_rstput( kt, nitrst, numrtw, 'tcflxcum', t_oce_co2_flx_cum ) ! Cumulative CO2 flux 356 CALL iom_rstput( kt, nitrst, numrtw, 'sizen', sizen(:,:,:) ) ! Size of nanophytoplankton 357 CALL iom_rstput( kt, nitrst, numrtw, 'sized', sized(:,:,:) ) ! Size of diatoms 348 358 IF( ln_p5z ) THEN 349 359 CALL iom_rstput( kt, nitrst, numrtw, 'sizep', sizep(:,:,:) ) ! Size of picophytoplankton 350 CALL iom_rstput( kt, nitrst, numrtw, 'sizen', sizen(:,:,:) ) ! Size of nanophytoplankton351 CALL iom_rstput( kt, nitrst, numrtw, 'sized', sized(:,:,:) ) ! Size of diatoms352 360 ENDIF 353 361 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.