Changeset 8495 for branches/UKMO/dev_r5518_GO6_package_asm_surf_bgc_v2/NEMOGCM/NEMO/TOP_SRC/MEDUSA/sms_medusa.F90
- Timestamp:
- 2017-09-04T18:50:10+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_asm_surf_bgc_v2/NEMOGCM/NEMO/TOP_SRC/MEDUSA/sms_medusa.F90
r8132 r8495 205 205 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: f2_ccd_arg !: 2D aragonite CCD depth 206 206 !! 207 #if defined key_foam_medusa 208 !! 2D fields of pCO2 and fCO2 for observation operator 209 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: f2_pco2w !: 2D pCO2 210 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: f2_fco2w !: 2D fCO2 211 !! 212 #endif 207 213 !! 2D fields of organic and inorganic material sedimented on the seafloor 208 214 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: zb_sed_n !: 2D organic nitrogen (before) … … 384 390 & 926.4960, 935.7040 / 385 391 # endif 392 # if defined key_foam_medusa 393 REAL(wp) :: xobs_xco2a !: Observed atmospheric xCO2, read in 394 # endif 386 395 #endif 387 396 … … 434 443 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: cmask !: ??? 435 444 445 #if defined key_foam_medusa 446 !!---------------------------------------------------------------------- 447 !! Parameters required for ocean colour assimilation 448 !!---------------------------------------------------------------------- 449 !! 450 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: pgrow_avg !: Mixed layer average phytoplankton growth 451 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: ploss_avg !: Mixed layer average phytoplankton loss 452 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: phyt_avg !: Mixed layer average phytoplankton 453 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: mld_max !: Maximum mixed layer depth 454 !! 455 #endif 456 436 457 !!---------------------------------------------------------------------- 437 458 !! NEMO/TOP 3.3 , NEMO Consortium (2010) … … 446 467 !!---------------------------------------------------------------------- 447 468 USE lib_mpp , ONLY: ctl_warn 448 INTEGER :: ierr( 8) ! Local variables469 INTEGER :: ierr(9) ! Local variables 449 470 !!---------------------------------------------------------------------- 450 471 ierr(:) = 0 … … 456 477 !* 2D and 3D fields of carbonate system parameters 457 478 ALLOCATE( f2_ccd_cal(jpi,jpj) , f2_ccd_arg(jpi,jpj) , & 479 # if defined key_foam_medusa 480 f2_pco2w(jpi,jpj) , f2_fco2w(jpi,jpj) , & 481 # endif 458 482 & f3_pH(jpi,jpj,jpk) , f3_h2co3(jpi,jpj,jpk), & 459 483 & f3_hco3(jpi,jpj,jpk) , f3_co3(jpi,jpj,jpk) , & … … 504 528 & ffln(jpi,jpj,jpk) , fflf(jpi,jpj,jpk) , & 505 529 & ffls(jpi,jpj,jpk) , cmask(jpi,jpj) , STAT=ierr(8) ) 530 # if defined key_foam_medusa 531 ALLOCATE( pgrow_avg(jpi,jpj) , ploss_avg(jpi,jpj) , & 532 & phyt_avg(jpi,jpj) , mld_max(jpi,jpj) , STAT=ierr(9) ) 533 # endif 506 534 #endif 507 535 !
Note: See TracChangeset
for help on using the changeset viewer.