Changeset 743 for LMDZ4/branches/V3_test/libf/phylmd/oasis.dummy

Timestamp:

Dec 11, 2006, 4:55:31 PM (18 years ago)

Author:

Laurent Fairhead

Message:

Nettoyage sur la version YM
LF

File:

• LMDZ4/branches/V3_test/libf/phylmd/oasis.dummy (modified) (4 diffs)

LMDZ4/branches/V3_test/libf/phylmd/oasis.dummy

@@ -95 +95 @@
       cl_writ(18)='CORIVFLU'
       cl_writ(19)='COCALVIN'
-c$$$      cl_writ(13)='COZOTAUX'
-c$$$      cl_writ(14)='COZOTAUV'
-c$$$      cl_writ(15)='COMETAUY'
-c$$$      cl_writ(16)='COMETAUU'
+cxxx      cl_writ(13)='COZOTAUX'
+cxxx      cl_writ(14)='COZOTAUV'
+cxxx      cl_writ(15)='COMETAUY'
+cxxx      cl_writ(16)='COMETAUU'
       cl_writ(1)='COTAUXXU'
       cl_writ(2)='COTAUYYU'
@@ -365 +365 @@
       REAL rivrunoff(imjm)
       REAL calving(imjm)
-c$$$      REAL tauxu(imjm)
-c$$$      REAL tauxv(imjm)
-c$$$      REAL tauyu(imjm)
-c$$$      REAL tauyv(imjm)
+cxxx      REAL tauxu(imjm)
+cxxx      REAL tauxv(imjm)
+cxxx      REAL tauyu(imjm)
+cxxx      REAL tauyv(imjm)
       REAL tauxx_u(imjm)
       REAL tauxx_v(imjm)
@@ -496 +496 @@
      $          CALL locwrite(cl_writ(jf),calving, imjm,
      $          file_unit_field(jf), ierror) 
-c$$$            IF (jf.eq.13)
-c$$$     $          CALL locwrite(cl_writ(jf),tauxu, imjm,
-c$$$     $          file_unit_field(jf),ierror) 
-c$$$            IF (jf.eq.1')
-c$$$     $          CALL locwrite(cl_writ(jf),tauxv, imjm,
-c$$$     $          file_unit_field(jf),ierror) 
-c$$$            IF (jf.eq.15)
-c$$$     $          CALL locwrite(cl_writ(jf),tauyv, imjm,
-c$$$     $          file_unit_field(jf),ierror) 
-c$$$            IF (jf.eq.16)
-c$$$     $          CALL locwrite(cl_writ(jf),tauyu, imjm,
-c$$$     $          file_unit_field(jf), ierror) 
+cxxx            IF (jf.eq.13)
+cxxx     $          CALL locwrite(cl_writ(jf),tauxu, imjm,
+cxxx     $          file_unit_field(jf),ierror) 
+cxxx            IF (jf.eq.1')
+cxxx     $          CALL locwrite(cl_writ(jf),tauxv, imjm,
+cxxx     $          file_unit_field(jf),ierror) 
+cxxx            IF (jf.eq.15)
+cxxx     $          CALL locwrite(cl_writ(jf),tauyv, imjm,
+cxxx     $          file_unit_field(jf),ierror) 
+cxxx            IF (jf.eq.16)
+cxxx     $          CALL locwrite(cl_writ(jf),tauyu, imjm,
+cxxx     $          file_unit_field(jf), ierror) 
             IF (jf.eq.1)
      $          CALL locwrite(cl_writ(jf),tauxx_u, imjm,
@@ -574 +574 @@
           IF (jn.eq.18) CALL CLIM_Export(cl_writ(jn),kt,rivrunoff,info)
           IF (jn.eq.19) CALL CLIM_Export(cl_writ(jn),kt,calving,info)
-c$$$          IF (jn.eq.13) CALL CLIM_Export(cl_writ(jn), kt, tauxu, info)
-c$$$          IF (jn.eq.14) CALL CLIM_Export(cl_writ(jn), kt, tauxv, info)
-c$$$          IF (jn.eq.15) CALL CLIM_Export(cl_writ(jn), kt, tauyv, info)
-c$$$          IF (jn.eq.16) CALL CLIM_Export(cl_writ(jn), kt, tauyu, info)
+cxxx          IF (jn.eq.13) CALL CLIM_Export(cl_writ(jn), kt, tauxu, info)
+cxxx          IF (jn.eq.14) CALL CLIM_Export(cl_writ(jn), kt, tauxv, info)
+cxxx          IF (jn.eq.15) CALL CLIM_Export(cl_writ(jn), kt, tauyv, info)
+cxxx          IF (jn.eq.16) CALL CLIM_Export(cl_writ(jn), kt, tauyu, info)
           IF (jn.eq.1) CALL CLIM_Export(cl_writ(jn), kt, tauxx_u, info)
           IF (jn.eq.2) CALL CLIM_Export(cl_writ(jn), kt, tauyy_u, info)