Changeset 20 for branches/2016/dev_v3.20_2016_gravity_drainage/SOURCES/source_3.20/ice_gas.f

Timestamp:

10/05/16 14:25:40 (8 years ago)

Author:

vancop

Message:

Ludivine source files

File:

• branches/2016/dev_v3.20_2016_gravity_drainage/SOURCES/source_3.20/ice_gas.f (modified) (2 diffs)

branches/2016/dev_v3.20_2016_gravity_drainage/SOURCES/source_3.20/ice_gas.f

@@ -48 +48 @@
 !
 
+
       !--- Gas concentrations
       DO jn = 1, ntra_bio
@@ -59 +60 @@
          ENDIF
 
-         ! Carbonate chemistry
-         IF ( ln_carbon ) CALL ice_carb_chem
+      END DO
+
+      ! Carbonate chemistry
+      IF ( ln_carbon ) CALL ice_carb_chem
+
+      DO jn = 1, ntra_bio
 
          IF ( ( flag_active(jn)            ) .AND.