Ignore:
Timestamp:
2017-05-30T14:52:58+02:00 (4 years ago)
Author:
vancop
Message:

impact of melt ponds on albedo, first run

File:
1 edited

Legend:

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

    r8098 r8099  
    9595      IF(lwm) WRITE ( numoni, namicemp ) 
    9696       
     97      ! Shortcut for radiatively active melt ponds 
     98      ln_pnd_rad = ln_pnd .AND. ( ( nn_pnd_cpl == 1 ) .OR. ( nn_pnd_cpl == 2 ) ) 
     99 
    97100      IF(lwp) THEN                        ! control print 
    98101         WRITE(numout,*) 
     
    104107         WRITE(numout,*)'    Prescribed pond fraction                                    rn_apnd       = ', rn_apnd 
    105108         WRITE(numout,*)'    Prescribed pond depth                                       rn_hpnd       = ', rn_hpnd 
     109         WRITE(numout,*)'    Melt ponds radiatively active                               ln_pnd_rad    = ', ln_pnd_rad 
    106110      ENDIF 
    107111 
    108112      IF ( .NOT. ln_pnd ) THEN 
     113         WRITE(numout,*) 
    109114         WRITE(numout,*) ' Melt ponds are not activated ' 
    110115         WRITE(numout,*) ' nn_pnd_scheme, nn_pnd_cpl, rn_apnd and rn_hpnd are set to zero ' 
     
    114119         rn_hpnd       = 0._wp 
    115120      ENDIF 
     121 
    116122 
    117123      ! 
Note: See TracChangeset for help on using the changeset viewer.