Changeset 3273

Timestamp:

2012-01-23T10:36:24+01:00 (12 years ago)

Author:

cetlod

Message:

dev_NEMO_MERGE_2011:Correction of wrong initialisation in sbcana.F90, see ticket #915

File:

• branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbcana.F90 (modified) (1 diff)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbcana.F90

@@ -89 +89 @@
          nn_tau000 = MAX( nn_tau000, 1 )     ! must be >= 1
          !
+         qns (:,:) = rn_qns0
+         qsr (:,:) = rn_qsr0
+         emp (:,:) = rn_emp0
+         emps(:,:) = rn_emp0
+         !
+         utau(:,:) = rn_utau0
+         vtau(:,:) = rn_vtau0
+         taum(:,:) = SQRT ( rn_utau0 * rn_utau0 + rn_vtau0 * rn_vtau0 )
+         wndm(:,:) = SQRT ( taum(1,1) /  ( zrhoa * zcdrag ) )
+         !
       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