Changeset 9381 for branches/UKMO/dev_r5518_GO6_package_asm_3d_bgc/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90

Timestamp:

2018-03-07T16:19:58+01:00 (6 years ago)

Author:

dford

Message:

Implement pH balancing.

File:

• branches/UKMO/dev_r5518_GO6_package_asm_3d_bgc/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_GO6_package_asm_3d_bgc/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90

@@ -1239 +1239 @@
       
       ! Surface pCO2/fCO2 next
-      IF( ln_sfco2inc .OR. ln_spco2inc ) THEN
+      IF ( ln_sfco2inc .OR. ln_spco2inc ) THEN
          CALL pco2_asm_inc( kt, ln_asmdin, ln_asmiau, icycper, wgtiau, &
             &               ln_trainc, t_bkginc, s_bkginc )
@@ -1245 +1245 @@
       
       ! Profile pH next
-      IF( ln_pphinc ) THEN
+      IF ( ln_pphinc ) THEN
          CALL ph_asm_inc( kt, ln_asmdin, ln_asmiau, icycper, wgtiau, &
             &             ln_trainc, t_bkginc, s_bkginc )