Changeset 1125 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/cpl_mod.F90

Timestamp:

Mar 17, 2009, 11:32:56 AM (16 years ago)

Author:

jghattas

Message:

Ajout de la possiblite de couplage de vitesse de glace de mer, uniquement avec NEMO et cpl_current=true.

JG

File:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/cpl_mod.F90 (modified) (4 diffs)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/cpl_mod.F90

@@ -359 +359 @@
                read_u0(:,:), read_v0(:,:), tmp_r0(:,:))
 !$OMP END MASTER
-          CALL WriteField('read_u0',read_u0)
-          CALL WriteField('read_v0',read_v0)
-          CALL WriteField('read_r0',tmp_r0)
+
        ELSE
           read_u0(:,:) = 0.
@@ -442 +440 @@
 
   SUBROUTINE cpl_receive_seaice_fields(knon, knindex, &
-       tsurf_new, alb_new)
+       tsurf_new, alb_new, u0_new, v0_new)
 !
 ! This routine returns the fields for the seaice that have been read from the coupler
@@ -459 +457 @@
     REAL, DIMENSION(klon), INTENT(OUT)      :: tsurf_new
     REAL, DIMENSION(klon), INTENT(OUT)      :: alb_new
+    REAL, DIMENSION(klon), INTENT(OUT)      :: u0_new
+    REAL, DIMENSION(klon), INTENT(OUT)      :: v0_new
 
 ! Local variables
@@ -472 +472 @@
     CALL cpl2gath(read_alb_sic, alb_new, knon, knindex)
     CALL cpl2gath(read_sic, sic_new, knon, knindex)
+    CALL cpl2gath(read_u0, u0_new, knon, knindex)
+    CALL cpl2gath(read_v0, v0_new, knon, knindex)
 
 !*************************************************************************************