Changeset 8145
- Timestamp:
- 2017-06-06T17:01:42+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_mfs.F90
r5215 r8145 167 167 sh_now(:,:) = 0.0 ! initializze specifif humidity variable 168 168 169 DO jj = 2, jpjm1170 DO ji = fs_2, fs_jpim1 ! vector opt.169 DO jj = 1, jpj 170 DO ji = 1, jpi 171 171 172 172 ! Calculate Specific Humidity … … 345 345 END DO 346 346 END DO 347 348 CALL lbc_lnk( rel_windu(:,:), 'U', -1. ) 349 CALL lbc_lnk( rel_windv(:,:), 'V', -1. ) 347 350 348 351 rspeed(:,:)= SQRT(rel_windu(:,:)*rel_windu(:,:) &
Note: See TracChangeset
for help on using the changeset viewer.