Changeset 394 for LMDZ.3.3/branches/rel-LF/libf/phylmd/oasis.true

Timestamp:

Jul 19, 2002, 11:58:18 AM (22 years ago)

Author:

lmdzadmin

Message:

Phasage avec les sources d'OM: rajout calving + character*8 sur les noms
LF

File:

• LMDZ.3.3/branches/rel-LF/libf/phylmd/oasis.true (modified) (8 diffs)

LMDZ.3.3/branches/rel-LF/libf/phylmd/oasis.true

@@ -80 +80 @@
       cl_writ(10)='CORUNCOA'
       cl_writ(11)='CORIVFLU'
-c$$$      cl_writ(12)='COZOTAUX'
-c$$$      cl_writ(13)='COZOTAUV'
-c$$$      cl_writ(14)='COMETAUY'
-c$$$      cl_writ(15)='COMETAUU'
-      cl_writ(12)='COTAUXXU'
-      cl_writ(13)='COTAUYYU'
-      cl_writ(14)='COTAUZZU'
-      cl_writ(15)='COTAUXXV'
-      cl_writ(16)='COTAUYYV'
-      cl_writ(17)='COTAUZZV'
+      cl_writ(12)='COCALVIN'
+c$$$      cl_writ(13)='COZOTAUX'
+c$$$      cl_writ(14)='COZOTAUV'
+c$$$      cl_writ(15)='COMETAUY'
+c$$$      cl_writ(16)='COMETAUU'
+      cl_writ(13)='COTAUXXU'
+      cl_writ(14)='COTAUYYU'
+      cl_writ(15)='COTAUZZU'
+      cl_writ(16)='COTAUXXV'
+      cl_writ(17)='COTAUYYV'
+      cl_writ(18)='COTAUZZV'
 c
 c     Define files name for fields exchanged from atmos to coupler,
@@ -111 +112 @@
       cl_f_writ(16)='flxatmos'
       cl_f_writ(17)='flxatmos'
+      cl_f_writ(18)='flxatmos'
 
 c
@@ -305 +307 @@
 c $Id$
       SUBROUTINE intocpl(kt, imjm, fsolice, fsolwat, fnsolice, fnsolwat,
-     $    fnsicedt, evice, evwat, lpre, spre, dirunoff, rivrunoff,
-     $    tauxx_u, tauyy_u, tauzz_u, tauxx_v, tauyy_v, tauzz_v,last) 
+     $    fnsicedt, evice, evwat, lpre, spre, dirunoff, rivrunoff, 
+     $    calving, tauxx_u, tauyy_u, tauzz_u, tauxx_v, tauyy_v, tauzz_v
+     $    , last) 
 c ======================================================================
 c S. Valcke (02/99) adapted From L.Z.X Li: this subroutine provides the 
@@ -327 +330 @@
       REAL dirunoff(imjm)
       REAL rivrunoff(imjm)
+      REAL calving(imjm)
 c$$$      REAL tauxu(imjm)
 c$$$      REAL tauxv(imjm)
@@ -360 +364 @@
       WRITE(nuout,*) ' '
       WRITE(nuout,*) 'Intocpl: sending fields to CPL, kt= ', kt
-      WRITE(nuout,*) ' '
+      WRITE(nuout,*) 'last  ', last
+      WRITE(nuout,*)
 
       IF (last) THEN 
@@ -408 +413 @@
           DO jn=1, max_file 
             OPEN (file_unit(jn), FILE=file_name(jn), FORM='UNFORMATTED')
+            WRITE(*,*) 'Opening FILE ', file_unit(jn), ' '
+     $          , file_name(jn) 
+            REWIND(file_unit(jn))
           END DO
 c 
@@ -448 +456 @@
      $          CALL locwrite(cl_writ(jf),rivrunoff, imjm,
      $          file_unit_field(jf), ierror) 
-c$$$            IF (jf.eq.12)
+            IF (jf.eq.12)
+     $          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.13)
+c$$$            IF (jf.eq.1')
 c$$$     $          CALL locwrite(cl_writ(jf),tauxv, imjm,
 c$$$     $          file_unit_field(jf),ierror) 
-c$$$            IF (jf.eq.14)
+c$$$            IF (jf.eq.15)
 c$$$     $          CALL locwrite(cl_writ(jf),tauyv, imjm,
 c$$$     $          file_unit_field(jf),ierror) 
-c$$$            IF (jf.eq.15)
+c$$$            IF (jf.eq.16)
 c$$$     $          CALL locwrite(cl_writ(jf),tauyu, imjm,
 c$$$     $          file_unit_field(jf), ierror) 
-            IF (jf.eq.12)
+            IF (jf.eq.13)
      $          CALL locwrite(cl_writ(jf),tauxx_u, imjm,
      $          file_unit_field(jf),ierror)
-            IF (jf.eq.13)
+            IF (jf.eq.14)
      $          CALL locwrite(cl_writ(jf),tauyy_u, imjm,
      $          file_unit_field(jf),ierror)
-            IF (jf.eq.14)
+            IF (jf.eq.15)
      $          CALL locwrite(cl_writ(jf),tauzz_u, imjm,
      $          file_unit_field(jf),ierror)
-            IF (jf.eq.15)
+            IF (jf.eq.16)
      $          CALL locwrite(cl_writ(jf),tauxx_v, imjm,
      $          file_unit_field(jf),ierror)
-            IF (jf.eq.16)
+            IF (jf.eq.17)
      $          CALL locwrite(cl_writ(jf),tauyy_v, imjm,
      $          file_unit_field(jf),ierror)
-            IF (jf.eq.17)
+            IF (jf.eq.18)
      $          CALL locwrite(cl_writ(jf),tauzz_v, imjm,
      $          file_unit_field(jf),ierror)
@@ -519 +530 @@
           IF (jn.eq.10) CALL CLIM_Export(cl_writ(jn),kt,dirunoff, info)
           IF (jn.eq.11) CALL CLIM_Export(cl_writ(jn),kt,rivrunoff,info)
-c$$$          IF (jn.eq.12) CALL CLIM_Export(cl_writ(jn), kt, tauxu, info)
-c$$$          IF (jn.eq.13) CALL CLIM_Export(cl_writ(jn), kt, tauxv, info)
-c$$$          IF (jn.eq.14) CALL CLIM_Export(cl_writ(jn), kt, tauyv, info)
-c$$$          IF (jn.eq.15) CALL CLIM_Export(cl_writ(jn), kt, tauyu, info)
-          IF (jn.eq.12) CALL CLIM_Export(cl_writ(jn), kt, tauxx_u, info)
-          IF (jn.eq.13) CALL CLIM_Export(cl_writ(jn), kt, tauyy_u, info)
-          IF (jn.eq.14) CALL CLIM_Export(cl_writ(jn), kt, tauzz_u, info)
-          IF (jn.eq.15) CALL CLIM_Export(cl_writ(jn), kt, tauxx_v, info)
-          IF (jn.eq.16) CALL CLIM_Export(cl_writ(jn), kt, tauyy_v, info)
-          IF (jn.eq.17) CALL CLIM_Export(cl_writ(jn), kt, tauzz_v, info)
+          IF (jn.eq.12) 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)
+          IF (jn.eq.13) CALL CLIM_Export(cl_writ(jn), kt, tauxx_u, info)
+          IF (jn.eq.14) CALL CLIM_Export(cl_writ(jn), kt, tauyy_u, info)
+          IF (jn.eq.15) CALL CLIM_Export(cl_writ(jn), kt, tauzz_u, info)
+          IF (jn.eq.16) CALL CLIM_Export(cl_writ(jn), kt, tauxx_v, info)
+          IF (jn.eq.17) CALL CLIM_Export(cl_writ(jn), kt, tauyy_v, info)
+          IF (jn.eq.18) CALL CLIM_Export(cl_writ(jn), kt, tauzz_v, info)
           
             IF (info .NE. CLIM_Ok) THEN