Changeset 20 for branches/2016/dev_v3.20_2016_gravity_drainage/SOURCES/source_3.20/ice_th.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_th.f (modified) (1 diff)

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

@@ -105 +105 @@
       IF ( c_gravdr .EQ. 'DI' )
      &   CALL ice_sal_diff(nlay_i,1,1)                          ! Salt transport (Eddy-diffusion-based)
-
-      IF ( c_gravdr .EQ. 'AD' )
+      IF ( c_gravdr .EQ. 'AD' ) 
      &   CALL ice_sal_adv(nlay_i,1,1)                           ! Salt transport (Advection-based)
 
-      IF ( ( c_bio_model .EQ. 'KRILL' ) .AND. ln_trdiff )
-     &   CALL ice_bio_diff( 1 , 1 , nlay_i )                    ! Bio transport
+      IF ( ( c_bio_model .EQ. 'KRILL' ) .AND. ln_trdiff) THEN   ! Bio transport
+         IF ( c_gravdr .EQ. 'DI' )
+     &      CALL ice_bio_diff(1,1,nlay_i) 
+      ENDIF
+
+      IF ( ( c_bio_model .EQ. 'KRILL' ) .AND. ln_trdiff ) THEN
+         IF ( c_gravdr .EQ. 'AD' )
+     &      CALL ice_bio_adv(1,1,nlay_i) 
+      ENDIF
 
       IF ( c_bio_model .EQ. 'KRILL' )