Changeset 1146 for LMDZ4/trunk/libf/phylmd/ocean_cpl_mod.F90

Timestamp:

Apr 9, 2009, 12:11:35 PM (15 years ago)

Author:

Laurent Fairhead

Message:

Réintegration dans le tronc des modifications issues de la branche LMDZ-dev
comprises entre la révision 1074 et 1145
Validation: une simulation de 1 jour en séquentiel sur PC donne les mêmes
résultats entre la trunk et la dev
LF

Location:

LMDZ4/trunk

Files:

• . (modified) (1 prop)
• libf/phylmd/ocean_cpl_mod.F90 (modified) (2 diffs)

LMDZ4/trunk/libf/phylmd/ocean_cpl_mod.F90

@@ -259 +259 @@
 
     CALL cpl_receive_seaice_fields(knon, knindex, &
-         tsurf_cpl, alb_cpl)
+         tsurf_cpl, alb_cpl, u0, v0)
 
     alb1_new(1:knon) = alb_cpl(1:knon)
@@ -273 +273 @@
     beta = 1.0
     
-! Suppose zero surface speed
-    u0(:)=0.0
-    v0(:)=0.0
-    u1_lay(:) = u1(:) - u0(:)
-    v1_lay(:) = v1(:) - v0(:)
+    DO i = 1, knon
+       u1_lay(i) = u1(i) - u0(i)
+       v1_lay(i) = v1(i) - v0(i)
+    END DO
 
     CALL calcul_fluxs(knon, is_sic, dtime, &