Changeset 4765 for trunk/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90

Timestamp:

2014-09-16T14:55:11+02:00 (10 years ago)

Author:

rblod

Message:

Compilation issue, see ticket #1379

File:

• trunk/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90

@@ -136 +136 @@
       DO jj = 1, jpj                                       
          DO ji = 1, jpi
-            IF( ( tsn(ji,jj,1,jp_tem)  - ( t_bo(ji,jj) - rt0 ) ) * tms(ji,jj) >= thres_sst ) THEN  ; zswitch(ji,jj) = 0._wp * tms(ji,jj)    ! no ice
-            ELSE                                                                                   ; zswitch(ji,jj) = 1._wp * tms(ji,jj)    !    ice
+            IF( ( tsn(ji,jj,1,jp_tem)  - ( t_bo(ji,jj) - rt0 ) ) * tms(ji,jj) >= thres_sst ) THEN 
+               zswitch(ji,jj) = 0._wp * tms(ji,jj)    ! no ice
+            ELSE                                                                                   
+               zswitch(ji,jj) = 1._wp * tms(ji,jj)    !    ice
             ENDIF
          END DO