New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 7271 for branches/NERC – NEMO

Changeset 7271 for branches/NERC


Ignore:
Timestamp:
2016-11-18T16:24:30+01:00 (7 years ago)
Author:
jpalmier
Message:

Jpalm -- 18-11-2016 -- CMIP6 diag-MEDUSA update

Location:
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/CONFIG/SHARED/field_def_bgc.xml

    r7254 r7271  
    426426       <field id= "INTDISSIN"  long_name="Dissolved Inorganic Nitrogen Content"      unit="mmolN/m2"    /> 
    427427       <field id= "INTDISSISI" long_name="Dissolved Inorganic Silicon Content"       unit="mmolSi/m2"   /> 
    428        <field id= "INTTALK"     long_name="Dissolved Alkalinity Content"              unit="meq/m2"      /> 
     428       <field id= "INTTALK"    long_name="Dissolved Alkalinity Content"              unit="meq/m2"      /> 
    429429       <field id= "O2min"      long_name="Oxygen Minimum Concentration"              unit="mmolO2/m3"   /> 
    430430       <field id= "ZO2min"     long_name="Depth of Oxygen Minimum Concentration"     unit="m"           /> 
     431       <field id= "FBDDTALK"   long_name="Int. change of Alkalinity due to Biology"  unit="meq/m2/d"    /> 
     432       <field id= "FBDDTDIC"   long_name="Int. change of DI Carbon due to Biology"   unit="mmolC/m2/d"  /> 
     433       <field id= "FBDDTIFE"   long_name="Int. change of DI Iron due to Biology"     unit="mmolFe/m2/d" /> 
     434       <field id= "FBDDTDIN"   long_name="Int. change of DI Nitrogen due to Biology" unit="mmolN/m2/d"  /> 
     435       <field id= "FBDDTDISI"  long_name="Int. change of DI Silicon due to Biology"  unit="mmolSi/m2/d" /> 
    431436 
    432437       <!-- MEDUSA 3D diagnostics --> 
     
    441446       <field id= "BDDTALK3"   long_name="Change of Alkalinity due to Biology"       unit="meq/m3/d"      grid_ref="grid_T_3D"  /> 
    442447       <field id= "BDDTDIC3"   long_name="Change of DI Carbon due to Biology"        unit="mmolC/m3/d"    grid_ref="grid_T_3D"  /> 
    443        <field id= "BDDTDIFE3"   long_name="Change of DI Iron due to Biology"          unit="mmolFe/m3/d"   grid_ref="grid_T_3D"  /> 
     448       <field id= "BDDTDIFE3"  long_name="Change of DI Iron due to Biology"          unit="mmolFe/m3/d"   grid_ref="grid_T_3D"  /> 
    444449       <field id= "BDDTDIN3"   long_name="Change of DI Nitrogen due to Biology"      unit="mmolN/m3/d"    grid_ref="grid_T_3D"  /> 
    445450       <field id= "BDDTDISI3"  long_name="Change of DI Silicon due to Biology"       unit="mmolSi/m3/d"   grid_ref="grid_T_3D"  /> 
     
    741746      <field field_ref= "O2min"      name="O2min"      /> 
    742747      <field field_ref= "ZO2min"     name="ZO2min"     /> 
     748      <field field_ref= "FBDDTALK"   name="FBDDTALK"   /> 
     749      <field field_ref= "FBDDTDIC"   name="FBDDTDIC"   /> 
     750      <field field_ref= "FBDDTDIFE"  name="FBDDTDIFE"  /> 
     751      <field field_ref= "FBDDTDIN"   name="FBDDTDIN"   /> 
     752      <field field_ref= "FBDDTDISI"  name="FBDDTDISI"  /> 
    743753      <field field_ref= "TPPD3"      name="TPPD3"      /> 
    744754      <field field_ref= "BDDTALK3"   name="BDDTALK3"   /> 
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90

    r7254 r7271  
    381381      !! 2D var for new CMIP6 diagnostics (behind a key_roam ifdef for simplicity) 
    382382      REAL(wp), POINTER, DIMENSION(:,:  ) :: fgco2, intdissic, intdissin, intdissisi, inttalk, o2min, zo2min 
     383      REAL(wp), POINTER, DIMENSION(:,:, ) :: fbddtalk, fbddtdic, fbddtdife, fbddtdin, fbddtdisi 
    383384      !! 
    384385      !! 3D var for new CMIP6 diagnostics 
     
    10301031             zo2min(:,:)  = 0.0 !! 
    10311032          ENDIF           
     1033          IF( med_diag%FBDDTALK%dgsave  ) THEN 
     1034             CALL wrk_alloc( jpi, jpj, fbddtalk  ) 
     1035             fbddtalk(:,:)  = 0.0 !!  
     1036          ENDIF 
     1037          IF( med_diag%FBDDTDIC%dgsave  ) THEN 
     1038             CALL wrk_alloc( jpi, jpj, fbddtdic  ) 
     1039             fbddtdic(:,:)  = 0.0 !!  
     1040          ENDIF 
     1041          IF( med_diag%FBDDTDIFE%dgsave ) THEN 
     1042             CALL wrk_alloc( jpi, jpj, fbddtdife ) 
     1043             fbddtdife(:,:) = 0.0 !!  
     1044          ENDIF 
     1045          IF( med_diag%FBDDTDIN%dgsave  ) THEN 
     1046             CALL wrk_alloc( jpi, jpj, fbddtdin  ) 
     1047             fbddtdin(:,:)  = 0.0 !!  
     1048          ENDIF 
     1049          IF( med_diag%FBDDTDISI%dgsave ) THEN 
     1050             CALL wrk_alloc( jpi, jpj, fbddtdisi ) 
     1051             fbddtdisi(:,:) = 0.0 !!  
     1052          ENDIF 
    10321053          !!  
    10331054          !! AXY (10/11/16): CMIP6 diagnostics, 3D 
     
    38033824               endif                
    38043825 
    3805                !! AXY (09/11/16): CMIP6 diagnostics 
    3806                IF( med_diag%BDDTALK3%dgsave ) THEN 
     3826               !! AXY (18/11/16): CMIP6 diagnostics 
     3827               IF( med_diag%FBDDTALK%dgsave )  THEN 
     3828                  fbddtalk(ji,jj)  =  fbddtalk(ji,jj)  + (btra(jpalk) * fthk) 
     3829               ENDIF 
     3830               IF( med_diag%FBDDTDIC%dgsave )  THEN 
     3831                  fbddtdic(ji,jj)  =  fbddtdic(ji,jj)  + (btra(jpdic) * fthk) 
     3832               ENDIF 
     3833               IF( med_diag%FBDDTDIFE%dgsave ) THEN 
     3834                  fbddtdife(ji,jj) =  fbddtdife(ji,jj) + (btra(jpfer) * fthk) 
     3835               ENDIF 
     3836               IF( med_diag%FBDDTDIN%dgsave )  THEN 
     3837                  fbddtdin(ji,jj)  =  fbddtdin(ji,jj)  + (btra(jpdin) * fthk) 
     3838               ENDIF 
     3839               IF( med_diag%FBDDTDISI%dgsave ) THEN 
     3840                  fbddtdisi(ji,jj) =  fbddtdisi(ji,jj) + (btra(jpsil) * fthk) 
     3841               ENDIF 
     3842          !! 
     3843               IF( med_diag%BDDTALK3%dgsave )  THEN 
    38073844                  bddtalk3(ji,jj,jk)  =  btra(jpalk) 
    38083845               ENDIF 
    3809                IF( med_diag%BDDTDIC3%dgsave ) THEN 
     3846               IF( med_diag%BDDTDIC3%dgsave )  THEN 
    38103847                  bddtdic3(ji,jj,jk)  =  btra(jpdic) 
    38113848               ENDIF 
     
    38133850                  bddtdife3(ji,jj,jk) =  btra(jpfer) 
    38143851               ENDIF 
    3815                IF( med_diag%BDDTDIN3%dgsave ) THEN 
     3852               IF( med_diag%BDDTDIN3%dgsave )  THEN 
    38163853                  bddtdin3(ji,jj,jk)  =  btra(jpdin) 
    38173854               ENDIF 
     
    57925829             CALL wrk_dealloc( jpi, jpj, zo2min      ) 
    57935830          ENDIF           
     5831          IF( med_diag%FBDDTALK%dgsave ) THEN 
     5832             CALL iom_put( "FBDDTALK"  , fbddtalk   ) 
     5833             CALL wrk_dealloc( jpi, jpj, fbddtalk   ) 
     5834          ENDIF           
     5835          IF( med_diag%FBDDTDIC%dgsave ) THEN 
     5836             CALL iom_put( "FBDDTDIC"  , fbddtdic   ) 
     5837             CALL wrk_dealloc( jpi, jpj, fbddtdic   ) 
     5838          ENDIF           
     5839          IF( med_diag%FBDDTDIFE%dgsave ) THEN 
     5840             CALL iom_put( "FBDDTDIFE" , fbddtdife  ) 
     5841             CALL wrk_dealloc( jpi, jpj, fbddtdife  ) 
     5842          ENDIF           
     5843          IF( med_diag%FBDDTDIN%dgsave ) THEN 
     5844             CALL iom_put( "FBDDTDIN"  , fbddtdin   ) 
     5845             CALL wrk_dealloc( jpi, jpj, fbddtdin   ) 
     5846          ENDIF           
     5847          IF( med_diag%FBDDTDISI%dgsave ) THEN 
     5848             CALL iom_put( "FBDDTDISI" , fbddtdisi  ) 
     5849             CALL wrk_dealloc( jpi, jpj, fbddtdisi  ) 
     5850          ENDIF     
    57945851          !! 
    57955852          !! AXY (09/11/16): 3D CMIP6 diagnostics 
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcnam_medusa.F90

    r7254 r7271  
    21842184          med_diag%ZO2min%dgsave = .FALSE. 
    21852185      ENDIF 
     2186      IF  (iom_use("FBDDTALK")) THEN  
     2187          med_diag%FBDDTALK%dgsave = .TRUE. 
     2188      ELSE  
     2189          med_diag%FBDDTALK%dgsave = .FALSE. 
     2190      ENDIF 
     2191      IF  (iom_use("FBDDTDIC")) THEN  
     2192          med_diag%FBDDTDIC%dgsave = .TRUE. 
     2193      ELSE  
     2194          med_diag%FBDDTDIC%dgsave = .FALSE. 
     2195      ENDIF 
     2196      IF  (iom_use("FBDDTDIFE")) THEN  
     2197          med_diag%FBDDTDIFE%dgsave = .TRUE. 
     2198      ELSE  
     2199          med_diag%FBDDTDIFE%dgsave = .FALSE. 
     2200      ENDIF 
     2201      IF  (iom_use("FBDDTDISI")) THEN  
     2202          med_diag%FBDDTDISI%dgsave = .TRUE. 
     2203      ELSE  
     2204          med_diag%FBDDTDISI%dgsave = .FALSE. 
     2205      ENDIF 
    21862206      !! 
    21872207      !! 3D 
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/trc.F90

    r7224 r7271  
    136136                  epC100, epCALC100, epN100, epSI100,                                                & 
    137137                  FGCO2, INTDISSIC, INTDISSIN, INTDISSISI, INTTALK, O2min, ZO2min,                   & 
     138                  FBDDTALK, FBDDTDIC, FBDDTDIFE, FBDDTDIN, FBDDTDISI,                                &  
    138139! AXY (11/11/16): additional CMIP6 3D diagnostics 
    139140                  TPPD3,                                                                             & 
Note: See TracChangeset for help on using the changeset viewer.