Changeset 842

Timestamp:

2008-03-12T13:07:25+01:00 (16 years ago)

Author:

ctlod

Message:

Correct lines which do not compile on IBM

Location:

trunk/NEMO/LIM_SRC_3

Files:

• limthd_dh.F90 (modified) (1 diff)
• limthd_dif.F90 (modified) (2 diffs)
• limthd_sal.F90 (modified) (1 diff)

trunk/NEMO/LIM_SRC_3/limthd_dh.F90

@@ -790 +790 @@
 
          ! entrapment during snow ice formation
-         i_ice_switch = 1.0 - MAX ( 0.0 , SIGN ( 1.0 , - ht_i_b(ji) + 1.0d-6 ) )
+         i_ice_switch = 1.0 - MAX ( 0.0 , SIGN ( 1.0 , - ht_i_b(ji) + 1.0e-6 ) )
          isnowic      = 1.0 - MAX ( 0.0 , SIGN ( 1.0 , - dh_snowice(ji) ) ) * &
                         i_ice_switch

trunk/NEMO/LIM_SRC_3/limthd_dif.F90

@@ -439 +439 @@
        END DO
 
-       DO layer = 1, nlay_s-1
+       DO layer = 1, nlay_s-1, -1
           DO ji = kideb , kiut
              zkappa_s(ji,layer)  = 2.0 * rcdsn / &
@@ -558 +558 @@
 !
                 !!snow interior terms (bottom equation has the same form as the others)
-                DO numeq = 3, nlay_s + 1
+                DO numeq = 3, nlay_s + 1, -1
                    layer =  numeq - 1
                    ztrid(ji,numeq,1)   =  - zeta_s(ji,layer)*zkappa_s(ji,layer-1)

trunk/NEMO/LIM_SRC_3/limthd_sal.F90

@@ -172 +172 @@
             iaccrbo      =  MAX( 0.0 , SIGN ( 1.0 , dh_i_bott(ji) ) )
             ! isnowic : 1 if snow ice formation
-            i_ice_switch = 1.0 - MAX ( 0.0 , SIGN ( 1.0 , - ht_i_b(ji) + 1.0d-2 ) )
+            i_ice_switch = 1.0 - MAX ( 0.0 , SIGN ( 1.0 , - ht_i_b(ji) + 1.0e-2 ) )
             isnowic      = 1.0 - MAX ( 0.0 , SIGN ( 1.0 , - dh_snowice(ji) ) ) * &
                            i_ice_switch