Changeset 8145 for branches/2015

Timestamp:

2017-06-06T17:01:42+02:00 (7 years ago)

Author:

emanuelaclementi

Message:

#1909 bug fix to allow reproducibility when sbcblk_mfs is used

File:

• branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_mfs.F90 (modified) (2 diffs)

branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_mfs.F90

@@ -167 +167 @@
          sh_now(:,:) = 0.0    ! initializze specifif humidity variable
 
-         DO jj = 2, jpjm1
-            DO ji = fs_2, fs_jpim1   ! vector opt.
+         DO jj = 1, jpj
+            DO ji = 1, jpi  
 
          ! Calculate Specific Humidity 
@@ -345 +345 @@
           END DO
        END DO
+     
+       CALL lbc_lnk( rel_windu(:,:), 'U', -1. )
+       CALL lbc_lnk( rel_windv(:,:), 'V', -1. )
 
        rspeed(:,:)= SQRT(rel_windu(:,:)*rel_windu(:,:)   &