Changeset 2517 for LMDZ5/trunk/libf/phylmd/physiq_mod.F90

Timestamp:

May 20, 2016, 11:57:25 AM (8 years ago)

Author:

oboucher

Message:

Adding runofflic diagnostic in outputs
This is the freshwater flux going into the coupler

File:

• LMDZ5/trunk/libf/phylmd/physiq_mod.F90 (modified) (4 diffs)

LMDZ5/trunk/libf/phylmd/physiq_mod.F90

@@ -68 +68 @@
 
 #ifdef CPP_RRTM
-    USE YOERAD   , ONLY : NRADLP
+    USE YOERAD, ONLY : NRADLP
 #endif
     USE ioipsl_getin_p_mod, ONLY : getin_p
@@ -3430 +3430 @@
        !albedo SB <<<
 
-
-       if (mydebug) then
-          call writefield_phy('u_seri',u_seri,nbp_lev)
-          call writefield_phy('v_seri',v_seri,nbp_lev)
-          call writefield_phy('t_seri',t_seri,nbp_lev)
-          call writefield_phy('q_seri',q_seri,nbp_lev)
-       endif
-
        !
        !sonia : If Iflag_radia >=2, pertubation of some variables
@@ -3483 +3475 @@
              print *,' ->radlwsw, number 1 '
           ENDIF
+
           !
           CALL radlwsw &
@@ -4254 +4247 @@
     ! Get some variables from module fonte_neige_mod
     CALL fonte_neige_get_vars(pctsrf,  &
-         zxfqcalving, zxfqfonte, zxffonte)
-
-
+         zxfqcalving, zxfqfonte, zxffonte, zxrunofflic)