Changeset 623

Timestamp:

Apr 28, 2005, 3:40:30 PM (19 years ago)

Author:

Laurent Fairhead

Message:

Initialisations de variables YM
Synchro avec oasis3 AC
LF

File:

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

LMDZ4/trunk/libf/phylmd/interface_surf.F90

@@ -330 +330 @@
         call abort_gcm(modname,abort_message,1)
       endif
+      tmp_rriv = 0.0
+      tmp_rcoa = 0.0
+      tmp_rlic = 0.0
 
 !!$
@@ -1290 +1293 @@
 !   alb_ice      albedo de la glace
 !
-
+#ifdef CPP_PSMILE  
+  USE oasis
+  integer :: il_time_secs !time in seconds
+#endif
 
 ! Parametres d'entree
@@ -1463 +1469 @@
 #ifdef CPP_COUPLE
 #ifdef CPP_PSMILE
-   CALL inicma(iim, (jjm+1))
+    CALL inicma(iim, (jjm+1))
 #else
    call inicma(npas , nexca, idtime,(jjm+1)*iim)