Changeset 2104 for LMDZ5/trunk/libf/phymar/physiq.F90

Timestamp:

Aug 4, 2014, 1:22:25 AM (10 years ago)

Author:

fhourdin

Message:

Corrections de phymar par Gilles Delaygue.

File:

• LMDZ5/trunk/libf/phymar/physiq.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phymar/physiq.F90

@@ -33 +33 @@
       use Mod_PHY_S0_grd
       use Mod_SISVAT_grd
+      use Mod_SISVAT_dat
       use Mod_SISVAT_gpt ! surface heat flxes in outputs
       use Mod_PHY_DY_kkl
@@ -629 +630 @@
           mwp    = mwq
 
+! Initialization of Mod_SISVAT_dat
+! --------------------------------
+! pour aquaplanete: FixedSST=1
+          VarSST = 0.
+
 ! Initialization of Physical Constants and Allocation of main Variables
 ! ---------------------------------------------------------------------
@@ -749 +755 @@
 
 IF (debut) THEN
-!GD  ! On initialise avec la temperature du premier niveau au lieu de la temperature de surface à la première itération:
-!GD  pkt_DY_surf_tmp(:)=t(:,1) / (pplay(:,1)/1000) ** kap
-  ! init sur Ts___HOST
-     pkt_DY_surf_tmp(:)=Ts___HOST(:)
+! On initialise avec la temperature du premier niveau au lieu de la temperature de surface à la première itération:
+   pkt_DY_surf_tmp(:)=t(:,1) / (pplay(:,1)/1000) ** kap
    ELSE
-   pkt_DY_surf_tmp(i)=pkt_DY(i,klev+1)
+   pkt_DY_surf_tmp(:)=pkt_DY(:,klev+1)
 ENDIF
+
 pkta_HOST(:,klev+1)=pkt_DY_surf_tmp(:)
 DO k = 1, klev