Changeset 36 for branches/2016

Timestamp:

01/17/17 10:59:41 (7 years ago)

Author:

vancop

Message:

small fix on a switch

File:

• branches/2016/dev_v3.20_2016_platelet/SOURCES/source_3.20/ice_th.f (modified) (1 diff)

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

@@ -115 +115 @@
      &   CALL ice_bio_sms(nlay_i,1,1)                           ! KRILL source minus sinks
      
-      IF ( ln_ikaite ) 
+      IF ( ( c_bio_model .EQ. 'KRILL' ) .AND. ln_ikaite )
      &   CALL ice_ikaite(nlay_i)                                ! Ikaite precipitation and dissolution