- Timestamp:
- 2019-10-29T16:30:24+01:00 (4 years ago)
- 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 377 377 <field id= "SEAFLRCA" long_name="Seafloor flux of CaCO3" unit="mmol-C/m2/d" /> 378 378 <field id= "GEOENG_ALK" long_name="Surface Geo-ingeneering flux of CaCO3" unit="mmol-eq/m2/d" /> 379 <field id= "M AED_QSR" long_name="Sea surface radiation" unit="W/m2" />379 <field id= "MED_QSR" long_name="Sea surface radiation" unit="W/m2" /> 380 380 <field id= "MED_XPAR" long_name="Top level radiation" unit="W/m2" /> 381 381 <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 445 445 fse3t(ji,jj,jk)) 446 446 ENDIF 447 !! AXY (16/10/19) 447 !! AXY (16/10/19) : SUPER DIRTY !! to be cleaned 448 448 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 452 454 ENDIF 453 455 IF( med_diag%DETC%dgsave ) THEN
Note: See TracChangeset
for help on using the changeset viewer.