Changeset 5070 for branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limthd_lac.F90

Timestamp:

2015-02-09T14:39:07+01:00 (9 years ago)

Author:

clem

Message:

LIM3 cosmetic changes

File:

• branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limthd_lac.F90 (modified) (3 diffs)

branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limthd_lac.F90

@@ -156 +156 @@
       hicol(:,:) = rn_hnewice
 
-      IF( nn_frazil == 1 ) THEN
+      IF( ln_frazil ) THEN
 
          !--------------------
@@ -221 +221 @@
                   iterate_frazil = .true.
 
-                  DO WHILE ( iter .LT. 100 .AND. iterate_frazil ) 
+                  DO WHILE ( iter < 100 .AND. iterate_frazil ) 
                      zf = ( hicol(ji,jj) - zhicrit ) * ( hicol(ji,jj)**2 - zhicrit**2 ) &
                         - hicol(ji,jj) * zhicrit * ztwogp * zvrel2
@@ -321 +321 @@
             zh_newice(ji) = rn_hnewice
          END DO
-         IF( nn_frazil == 1 ) zh_newice(1:nbpac) = hicol_1d(1:nbpac)
+         IF( ln_frazil ) zh_newice(1:nbpac) = hicol_1d(1:nbpac)
 
          !----------------------