Ignore:
Timestamp:
2017-06-06T17:01:42+02:00 (3 years ago)
Author:
emanuelaclementi
Message:

#1909 bug fix to allow reproducibility when sbcblk_mfs is used

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_mfs.F90

    r5215 r8145  
    167167         sh_now(:,:) = 0.0    ! initializze specifif humidity variable 
    168168 
    169          DO jj = 2, jpjm1 
    170             DO ji = fs_2, fs_jpim1   ! vector opt. 
     169         DO jj = 1, jpj 
     170            DO ji = 1, jpi   
    171171 
    172172         ! Calculate Specific Humidity  
     
    345345          END DO 
    346346       END DO 
     347      
     348       CALL lbc_lnk( rel_windu(:,:), 'U', -1. ) 
     349       CALL lbc_lnk( rel_windv(:,:), 'V', -1. ) 
    347350 
    348351       rspeed(:,:)= SQRT(rel_windu(:,:)*rel_windu(:,:)   & 
Note: See TracChangeset for help on using the changeset viewer.