Changeset 11828


Ignore:
Timestamp:
2019-10-29T16:30:24+01:00 (11 months ago)
Author:
jpalmier
Message:

DIRTY temporal debug

Location:
branches/NERC/dev_r5518_GO6_GeoAlk_MEDUSA/NEMOGCM
Files:
2 edited

Legend:

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

    r11726 r11828  
    377377       <field id= "SEAFLRCA"   long_name="Seafloor flux of CaCO3"                    unit="mmol-C/m2/d"  /> 
    378378       <field id= "GEOENG_ALK" long_name="Surface Geo-ingeneering flux of CaCO3"     unit="mmol-eq/m2/d" /> 
    379        <field id= "MAED_QSR"    long_name="Sea surface radiation"                    unit="W/m2"         /> 
     379       <field id= "MED_QSR"    long_name="Sea surface radiation"                    unit="W/m2"         /> 
    380380       <field id= "MED_XPAR"   long_name="Top level radiation"                       unit="W/m2"         /> 
    381381       <field id= "INTFLX_N"   long_name="Integrated N  cycle fluxes"                unit="mmol-N/m2/d"  /> 
  • branches/NERC/dev_r5518_GO6_GeoAlk_MEDUSA/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_med_diag_iomput.F90

    r11726 r11828  
    445445                                     fse3t(ji,jj,jk)) 
    446446               ENDIF 
    447                !! AXY (16/10/19) 
     447               !! AXY (16/10/19) : SUPER DIRTY !! to be cleaned 
    448448               IF( med_diag%GEOENG_ALK%dgsave ) THEN 
    449                   geoengalk2d(ji,jj) = geoengalk2d(ji,jj) +                  & 
    450                                        (f_geoeng_alk(ji,jj) *                & 
    451                                        fse3t(ji,jj,jk)) 
     449                  IF (jk.eq.1) THEN 
     450                     geoengalk2d(ji,jj) = geoengalk2d(ji,jj) +                  & 
     451                                          (f_geoeng_alk(ji,jj) *                & 
     452                                          fse3t(ji,jj,jk)) 
     453                  ENDIF 
    452454               ENDIF                  
    453455               IF( med_diag%DETC%dgsave ) THEN 
Note: See TracChangeset for help on using the changeset viewer.