Ignore:
Timestamp:
2017-07-25T16:38:38+02:00 (3 years ago)
Author:
clem
Message:

STEP4 (4): put all thermodynamics in 1D (limitd_th OK)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limmp.F90

    r8321 r8369  
    110110 
    111111      IF ( .NOT. ln_pnd ) THEN 
    112          WRITE(numout,*) 
    113          WRITE(numout,*) ' Melt ponds are not activated ' 
    114          WRITE(numout,*) ' ln_pnd_rad and ln_pnd_fw set to .FALSE. ' 
    115          WRITE(numout,*) ' nn_pnd_scheme, rn_apnd, rn_hpnd set to zero ' 
     112         IF(lwp) WRITE(numout,*) 
     113         IF(lwp) WRITE(numout,*) ' Melt ponds are not activated ' 
     114         IF(lwp) WRITE(numout,*) ' ln_pnd_rad and ln_pnd_fw set to .FALSE. ' 
     115         IF(lwp) WRITE(numout,*) ' nn_pnd_scheme, rn_apnd, rn_hpnd set to zero ' 
    116116         ln_pnd_rad    = .FALSE. 
    117117         ln_pnd_fw     = .FALSE. 
     
    130130 
    131131      IF ( ln_pnd .AND. ( nn_pnd_scheme == 0 ) .AND. ( ln_pnd_fw ) ) THEN 
    132          WRITE(numout,*) ' Prescribed melt ponds do not conserve fresh water mass, hence ln_pnd_fw must be set to false '  
     132         IF(lwp) WRITE(numout,*) ' Prescribed melt ponds do not conserve fresh water mass, hence ln_pnd_fw must be set to false '  
    133133         ln_pnd_fw     = .FALSE. 
    134134         IF(lwp) THEN                     ! control print 
     
    138138 
    139139      IF ( ln_pnd .AND. ( nn_pnd_scheme == 2 ) .AND. ( jpl == 1 ) ) THEN 
    140          WRITE(numout,*) ' Topographic melt ponds are incompatible with jpl = 1 ' 
    141          WRITE(numout,*) ' Run aborted ' 
     140         IF(lwp) WRITE(numout,*) ' Topographic melt ponds are incompatible with jpl = 1 ' 
     141         IF(lwp) WRITE(numout,*) ' Run aborted ' 
    142142         CALL ctl_stop( 'STOP', 'lim_mp_init: uncompatible options, reset namelist_ice_ref ' ) 
    143143      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.