Changeset 1334 for LMDZ4/trunk/libf/phylmd/surf_landice_mod.F90

Timestamp:

Mar 31, 2010, 2:54:07 PM (15 years ago)

Author:

idelkadi

Message:

• Rajout de champs de sorties
• Correction dans la partie convection (nouvelle physique)

File:

• LMDZ4/trunk/libf/phylmd/surf_landice_mod.F90 (modified) (3 diffs)

LMDZ4/trunk/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
@@ -174 +176 @@
        CALL cpl_send_landice_fields(itime, knon, knindex, run_off_lic)
     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