Changeset 1369 for LMDZ4/branches/LMDZ4V5.0-dev/libf

Timestamp:

Apr 22, 2010, 2:53:08 PM (15 years ago)

Author:

idelkadi

Message:

• Corrections pour integrer de nouveaux champs de sorties

Location:

LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd

Files:

• physiq.F (modified) (3 diffs)
• surf_landice_mod.F90 (modified) (3 diffs)

LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/physiq.F

@@ -1228 +1228 @@
      &     alp_offset)
       call phys_state_var_init(read_climoz)
+      call phys_output_var_init
+
       print*, '================================================='
 cIM for NMC files
@@ -1247 +1249 @@
 c         pmflxr=0.
 c         pmflxs=0.
+        itau_con=0
         first=.false.
 
@@ -2157 +2160 @@
               pmfu(:,:)=upwd(:,:)+dnwd(:,:)
 
+              do i = 1, klon
+                if (iflagctrl(i).le.1) itau_con(i)=itau_con(i)+1
+              enddo
+
           ELSE ! ok_cvl
 c MAF conema3 ne contient pas les traceurs

LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/surf_landice_mod.F90

@@ -24 +24 @@
     USE cpl_mod,          ONLY : cpl_send_landice_fields
     USE calcul_fluxs_mod
+    USE phys_output_var_mod
 
     INCLUDE "indicesol.h"
@@ -74 +75 @@
     REAL, DIMENSION(klon)    :: radsol
     REAL, DIMENSION(klon)    :: u0, v0, u1_lay, v1_lay
+    INTEGER                  :: i,j
 
 ! End definition
@@ -175 +177 @@
     ENDIF
 
+!****************************************************************************************
+       snow_o=0.
+       zfra_o = 0.
+       DO j = 1, knon
+           i = knindex(j)
+           snow_o(i) = snow(j)
+           zfra_o(i) = zfra(j)
+       ENDDO
+
 
   END SUBROUTINE surf_landice