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 8061 for branches/2016/dev_r6859_LIM3_meltponds/NEMOGCM/NEMO/LIM_SRC_3/limrst.F90 – NEMO

Ignore:
Timestamp:
2017-05-24T10:02:23+02:00 (7 years ago)
Author:
vancop
Message:

Quick commit on empirical melt ponds

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2016/dev_r6859_LIM3_meltponds/NEMOGCM/NEMO/LIM_SRC_3/limrst.F90

    r7306 r8061  
    152152 
    153153      ! MV MP 2016 
    154       IF ( ln_limMP ) THEN 
     154      IF ( nn_pnd_scheme > 0 ) THEN 
    155155         DO jl = 1, jpl  
    156156            WRITE(zchar,'(I2.2)') jl 
     
    316316         END DO 
    317317         ! MV MP 2016 
    318          IF ( ln_limMP ) THEN 
     318         IF ( nn_pnd_scheme > 0 ) THEN 
    319319            DO jl = 1, jpl  
    320320               WRITE(zchar,'(I2.2)') jl 
     
    439439 
    440440      ! MV MP 2016 
    441       IF ( ln_limMP ) THEN 
     441      IF ( nn_pnd_scheme > 0 ) THEN 
    442442         DO jl = 1, jpl  
    443443            WRITE(zchar,'(I2.2)') jl 
     
    575575         END DO 
    576576         ! MV MP 2016 
    577          IF ( ln_limMP ) THEN 
     577         IF ( nn_pnd_scheme > 0 ) THEN 
    578578            DO jl = 1, jpl  
    579579               WRITE(zchar,'(I2.2)') jl 
Note: See TracChangeset for help on using the changeset viewer.