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 5520 for branches/2015 – NEMO

Changeset 5520 for branches/2015


Ignore:
Timestamp:
2015-06-30T15:52:47+02:00 (9 years ago)
Author:
hliu
Message:

removed two bugs, and some redundant priniting out info for Wetting/Drying?

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r4826_NOC_WAD/NEMOGCM/NEMO/OPA_SRC/DYN/wadlmt.F90

    r5211 r5520  
    7373        ! 
    7474        
    75         IF(lwp) WRITE(numout,*) 
    76         IF(lwp) WRITE(numout,*) 'wad_lmt : wetting/drying limiters and velocity limiting' 
     75        !IF(lwp) WRITE(numout,*) 
     76        !IF(lwp) WRITE(numout,*) 'wad_lmt : wetting/drying limiters and velocity limiting' 
    7777        
    7878        zflag  = 0 
    79         zdepwd = 50._wp   !maximum depth that ocean cells can have W/D processes 
     79        zdepwd = 50._wp   !maximum depth on which that W/D could possibly happen 
    8080 
    8181        
     
    227227        ! 
    228228        
    229         IF(lwp) WRITE(numout,*) 
    230         IF(lwp) WRITE(numout,*) 'wad_lmt_bt : wetting/drying limiters and velocity limiting' 
     229        !IF(lwp) WRITE(numout,*) 
     230        !IF(lwp) WRITE(numout,*) 'wad_lmt_bt : wetting/drying limiters and velocity limiting' 
    231231        
    232232        zflag  = 0 
     
    237237        zflxp(:,:)   = 0._wp 
    238238        zflxn(:,:)   = 0._wp 
    239         zflxu(:,:)   = 0._wp 
    240         zflxv(:,:)   = 0._wp 
     239        !zflxu(:,:)   = 0._wp 
     240        !zflxv(:,:)   = 0._wp 
    241241 
    242242        zwdlmtu(:,:)  = 1._wp 
     
    245245        ! Horizontal Flux in u and v direction 
    246246        
    247         zflxu(:,:) = zflxu(:,:) * e2u(:,:) 
    248         zflxv(:,:) = zflxv(:,:) * e1v(:,:) 
     247        !zflxu(:,:) = zflxu(:,:) * e2u(:,:) 
     248        !zflxv(:,:) = zflxv(:,:) * e1v(:,:) 
    249249        
    250250        DO jj = 2, jpjm1 
Note: See TracChangeset for help on using the changeset viewer.