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

Timestamp:

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

Author:

idelkadi

Message:

• Corrections pour integrer de nouveaux champs de sorties

File:

• LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/surf_landice_mod.F90 (modified) (3 diffs)

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