- Timestamp:
- 2017-08-16T14:47:00+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_asm_surf_bgc/NEMOGCM/NEMO/TOP_SRC/trcrst.F90
r8436 r8440 346 346 # endif 347 347 # endif 348 # if defined key_foam_medusa349 !! Fields for ocean colour assimilation on first timestep350 IF( iom_varid( numrtr, 'pgrow_avg', ldstop = .FALSE. ) > 0 ) THEN351 IF(lwp) WRITE(numout,*) ' MEDUSA pgrow_avg present - reading in ...'352 CALL iom_get( numrtr, jpdom_autoglo, 'pgrow_avg', pgrow_avg(:,:) )353 CALL iom_get( numrtr, jpdom_autoglo, 'ploss_avg', ploss_avg(:,:) )354 CALL iom_get( numrtr, jpdom_autoglo, 'phyt_avg', phyt_avg(:,:) )355 CALL iom_get( numrtr, jpdom_autoglo, 'mld_max', mld_max(:,:) )356 ELSE357 IF(lwp) WRITE(numout,*) ' MEDUSA pgrow_avg absent - setting to zero ...'358 pgrow_avg(:,:) = 0.0359 ploss_avg(:,:) = 0.0360 phyt_avg(:,:) = 0.0361 mld_max(:,:) = 0.0362 ENDIF363 # endif364 348 365 349 … … 530 514 call trc_rst_dia_stat( f2_ccd_arg(:,:),'CCD_ARG') 531 515 !! 532 # endif 533 # if defined key_foam_medusa 534 !! Fields for assimilation and observation operator on first timestep 535 IF(lwp) WRITE(numout,*) ' MEDUSA OBS/ASM fields - writing out ...' 536 # if defined key_roam 537 CALL iom_rstput( kt, nitrst, numrtw, 'PCO2W', f2_pco2w(:,:) ) 538 CALL iom_rstput( kt, nitrst, numrtw, 'FCO2W', f2_fco2w(:,:) ) 516 # if defined key_foam_medusa 517 !! Fields for observation operator on first timestep 518 IF(lwp) WRITE(numout,*) ' MEDUSA OBS fields - writing out ...' 519 CALL iom_rstput( kt, nitrst, numrtw, 'PCO2W', f2_pco2w(:,:) ) 520 CALL iom_rstput( kt, nitrst, numrtw, 'FCO2W', f2_fco2w(:,:) ) 539 521 # endif 540 CALL iom_rstput( kt, nitrst, numrtw, 'pgrow_avg', pgrow_avg(:,:) )541 CALL iom_rstput( kt, nitrst, numrtw, 'ploss_avg', ploss_avg(:,:) )542 CALL iom_rstput( kt, nitrst, numrtw, 'phyt_avg', phyt_avg(:,:) )543 CALL iom_rstput( kt, nitrst, numrtw, 'mld_max', mld_max(:,:) )544 522 # endif 545 523 !!
Note: See TracChangeset
for help on using the changeset viewer.