New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 4390 – NEMO

Changeset 4390


Ignore:
Timestamp:
2014-01-31T16:06:09+01:00 (10 years ago)
Author:
hliu
Message:

some more on wadlmt.F90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_r4050_NOC_WaD/NEMOGCM/NEMO/OPA_SRC/DYN/wadlmt.F90

    r4389 r4390  
    151151              END DO ! ji loop 
    152152           END DO  ! jj loop 
    153            
    154            CALL lbc_lnk( zwdlmtu, 'U', 1. ) 
    155            CALL lbc_lnk( zwdlmtv, 'V', 1. ) 
    156            
    157            IF(zflag == 0) EXIT 
    158            
     153 
    159154           IF(jk1 == nn_waditr) THEN 
    160155              DO jj = 2, jpjm1 
     
    166161                 IF(zflxv1(ji,  jj-1) <  0._wp) zwdlmtv(ji,  jj-1) = 0._wp 
    167162             
    168                  CALL lbc_lnk( zwdlmtu, 'U', 1. ) 
    169                  CALL lbc_lnk( zwdlmtv, 'V', 1. ) 
    170163                 END DO ! ji loop 
    171164              END DO  ! jj loop 
    172165           END IF 
     166           
     167           CALL lbc_lnk( zwdlmtu, 'U', 1. ) 
     168           CALL lbc_lnk( zwdlmtv, 'V', 1. ) 
     169           
     170           IF(zflag == 0) EXIT 
     171           
    173172 
    174173        END DO  ! jk1 loop 
Note: See TracChangeset for help on using the changeset viewer.