Changeset 1124 for LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/oasis.F90

Timestamp:

Mar 17, 2009, 10:53:39 AM (16 years ago)

Author:

jghattas

Message:

Modification pour couplage conservatif avec NEMO : passage des champs totaux et champs sur la glace au lieu de passage des champs sur l'ocean et champs sur la glace.

Arnaud Caubel

File:

• LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/oasis.F90 (modified) (1 diff)

LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/oasis.F90

@@ -140 +140 @@
     cl_writ(7)='COWINDSP'
     cl_writ(8)='COSHFICE'
-    cl_writ(9)='COSHFOCE'
     cl_writ(10)='CONSFICE'
-    cl_writ(11)='CONSFOCE'
     cl_writ(12)='CODFLXDT'
 
     IF (version_ocean=='nemo') THEN
-      cl_writ(13)='COEMPSIC'
-      cl_writ(14)='CONESOPR'
-      cl_writ(15)='COEMPOCE'
+      cl_writ(9)='COQSRMIX'
+      cl_writ(11)='COQNSMIX'
+      cl_writ(13)='COTOTRAI'
+      cl_writ(14)='COTOTSNO'
+      cl_writ(15)='COTOTEVA'
       cl_writ(16)='COICEVAP'
       cl_writ(17)='COCALVIN'
       cl_writ(18)='COLIQRUN'
     ELSE IF (version_ocean=='opa8') THEN
+       cl_writ(9)='COSHFOCE'
+       cl_writ(11)='CONSFOCE'
        cl_writ(13)='COTFSICE'
        cl_writ(14)='COTFSOCE'