Changeset 7525 for branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/SBC/sbcana.F90

Timestamp:

2017-01-04T17:47:47+01:00 (7 years ago)

Author:

mocavero

Message:

changes after review

File:

• branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/SBC/sbcana.F90 (modified) (2 diffs)

branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/SBC/sbcana.F90

@@ -272 +272 @@
       ztau_sais = 0.015
       ztaun = ztau - ztau_sais * COS( (ztime - ztimemax) / (ztimemin - ztimemax) * rpi )
-      ! module of wind stress and wind speed at T-point
+
       zcoef = 1. / ( zrhoa * zcdrag ) 
 !$OMP PARALLEL
@@ -285 +285 @@
       END DO
 
+      ! module of wind stress and wind speed at T-point
 !$OMP DO schedule(static) private(jj, ji, ztx, zty, zmod)
       DO jj = 2, jpjm1