Ignore:
Timestamp:
2019-10-18T16:49:33+02:00 (12 months ago)
Author:
jpalmier
Message:

add Changes to enable Alkalinity geo-ingeneering tests within MEDUSA

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_GO6_GeoAlk_MEDUSA/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_med_diag_iomput.F90

    r10020 r11726  
    445445                                     fse3t(ji,jj,jk)) 
    446446               ENDIF 
     447               !! AXY (16/10/19) 
     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)) 
     452               ENDIF                  
    447453               IF( med_diag%DETC%dgsave ) THEN 
    448454                  fslowc2d(ji,jj) = fslowc2d(ji,jj) +                        & 
Note: See TracChangeset for help on using the changeset viewer.