Changeset 2200 for branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/SBC

Timestamp:

2010-10-11T13:43:18+02:00 (14 years ago)

Author:

smasson

Message:

merge trunk rev 2198 into DEV_r2106_LOCEAN2010

File:

• branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/SBC/sbcana.F90 (modified) (1 diff)

branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/SBC/sbcana.F90

@@ -88 +88 @@
          !
          nn_tau000 = MAX( nn_tau000, 1 )   ! must be >= 1
-         qns   (:,:) = rn_qns0
-         qsr   (:,:) = rn_qsr0
-         emp   (:,:) = rn_emp0
-         emps  (:,:) = rn_emp0
          !
       ENDIF
+
+      qns   (:,:) = rn_qns0
+      qsr   (:,:) = rn_qsr0
+      emp   (:,:) = rn_emp0
+      emps  (:,:) = rn_emp0
    
       ! Increase the surface stress to its nominal value during the first nn_tau000 time-steps