Changeset 10115 for NEMO/branches/2018/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_mfs.F90

Timestamp:

2018-09-12T15:59:13+02:00 (6 years ago)

Author:

cbricaud

Message:

phase 3.6 coarsening branch with nemo_3.6_rev9192

File:

• NEMO/branches/2018/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_mfs.F90 (modified) (2 diffs)

NEMO/branches/2018/dev_r5003_MERCATOR6_CRS/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(:,:)   &