Changeset 2977 for branches/2011/dev_LOCEAN_2011/NEMOGCM/NEMO/LIM_SRC_3

Timestamp:

2011-10-22T15:46:41+02:00 (13 years ago)

Author:

cetlod

Message:

Add in branch 2011/dev_LOCEAN_2011 changes from 2011/dev_r2787_PISCES_improvment, 2011/dev_r2787_LOCEAN_offline_fldread and 2011/dev_r2787_LOCEAN3_TRA_TRP branches, see ticket #877

File:

• branches/2011/dev_LOCEAN_2011/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90 (modified) (1 diff)

branches/2011/dev_LOCEAN_2011/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90

@@ -98 +98 @@
       IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '
 
-      t_bo(:,:) = tfreez( sn(:,:,1) ) * tmask(:,:,1)       ! freezing/melting point of sea water [Celcius]
+      t_bo(:,:) = tfreez( tsn(:,:,1,jp_sal) ) * tmask(:,:,1)       ! freezing/melting point of sea water [Celcius]
 
       DO jj = 1, jpj                                       ! ice if sst <= t-freez + ttest
          DO ji = 1, jpi
-            IF( tn(ji,jj,1)  - t_bo(ji,jj) >= ttest ) THEN   ;   zidto(ji,jj) = 0.e0      ! no ice
-            ELSE                                             ;   zidto(ji,jj) = 1.e0      !    ice
+            IF( tsn(ji,jj,1,jp_tem)  - t_bo(ji,jj) >= ttest ) THEN   ;   zidto(ji,jj) = 0.e0      ! no ice
+            ELSE                                                     ;   zidto(ji,jj) = 1.e0      !    ice
             ENDIF
          END DO