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 5048 for branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limtrp.F90 – NEMO

Ignore:
Timestamp:
2015-02-02T11:28:50+01:00 (9 years ago)
Author:
vancop
Message:

new itd boundaries, namelist changes, mono-category and comments

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limtrp.F90

    r4990 r5048  
    420420         END DO 
    421421         ! ------------------------------------------------- 
     422          
     423         !-------------------------------------- 
     424         ! Impose a_i < amax in mono-category 
     425         !-------------------------------------- 
     426         ! 
     427         IF ( ( nn_monocat == 2 ) .AND. ( jpl == 1 ) ) THEN ! simple conservative piling, comparable with LIM2 
     428            DO jj = 1, jpj 
     429               DO ji = 1, jpi 
     430                  a_i(ji,jj,1)  = MIN( a_i(ji,jj,1), amax ) 
     431               END DO 
     432            END DO 
     433         ENDIF 
    422434 
    423435         ! --- diags --- 
Note: See TracChangeset for help on using the changeset viewer.