Changeset 8099 for branches/2016/dev_r6859_LIM3_meltponds/NEMOGCM/NEMO/LIM_SRC_3/limmp.F90

Timestamp:

2017-05-30T14:52:58+02:00 (7 years ago)

Author:

vancop

Message:

impact of melt ponds on albedo, first run

File:

• branches/2016/dev_r6859_LIM3_meltponds/NEMOGCM/NEMO/LIM_SRC_3/limmp.F90 (modified) (3 diffs)

branches/2016/dev_r6859_LIM3_meltponds/NEMOGCM/NEMO/LIM_SRC_3/limmp.F90

@@ -95 +95 @@
       IF(lwm) WRITE ( numoni, namicemp )
       
+      ! Shortcut for radiatively active melt ponds
+      ln_pnd_rad = ln_pnd .AND. ( ( nn_pnd_cpl == 1 ) .OR. ( nn_pnd_cpl == 2 ) )
+
       IF(lwp) THEN                        ! control print
          WRITE(numout,*)
@@ -104 +107 @@
          WRITE(numout,*)'    Prescribed pond fraction                                    rn_apnd       = ', rn_apnd
          WRITE(numout,*)'    Prescribed pond depth                                       rn_hpnd       = ', rn_hpnd
+         WRITE(numout,*)'    Melt ponds radiatively active                               ln_pnd_rad    = ', ln_pnd_rad
       ENDIF
 
       IF ( .NOT. ln_pnd ) THEN
+         WRITE(numout,*)
          WRITE(numout,*) ' Melt ponds are not activated '
          WRITE(numout,*) ' nn_pnd_scheme, nn_pnd_cpl, rn_apnd and rn_hpnd are set to zero '
@@ -114 +119 @@
          rn_hpnd       = 0._wp
       ENDIF
+
 
       !