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

Timestamp:

Mar 20, 2001, 4:14:30 PM (23 years ago)

Author:

lmdzadmin

Message:

Synchronisation avec version MAFO:

ajout sortie netcdf des champs echanges avec le coupleur
quelques save sur les variables (pb stack/static sur le nec)

LF

File:

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

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

@@ -199 +199 @@
             CALL CLIM_Define (cl_read(jf), clim_in , clim_double, iparal
      $          , info )  
+            WRITE(nuout,*) 'inicma : clim define done for ',jf
+     $          ,cl_read(jf) 
           END DO 
 c
@@ -206 +208 @@
             CALL CLIM_Define (cl_writ(jf), clim_out , clim_double,
      $          iparal, info )   
+            WRITE(nuout,*) 'inicma : clim define done for ',jf
+     $          ,cl_writ(jf) 
           END DO 
 c
@@ -410 +414 @@
             IF (jf.eq.1)
      $          CALL locwrite(cl_writ(jf),fsolice, imjm,
-     $          file_unit_field(jf), ierror, nuout) 
+     $          file_unit_field(jf), ierror) 
             IF (jf.eq.2)
      $          CALL locwrite(cl_writ(jf),fsolwat, imjm,
-     $          file_unit_field(jf), ierror, nuout) 
+     $          file_unit_field(jf), ierror) 
             IF (jf.eq.3)
      $          CALL locwrite(cl_writ(jf),fnsolice, imjm,
-     $          file_unit_field(jf), ierror, nuout) 
+     $          file_unit_field(jf), ierror) 
             IF (jf.eq.4)
      $          CALL locwrite(cl_writ(jf),fnsolwat, imjm,
-     $          file_unit_field(jf), ierror, nuout) 
+     $          file_unit_field(jf), ierror) 
             IF (jf.eq.5)
      $          CALL locwrite(cl_writ(jf),fnsicedt, imjm,
-     $          file_unit_field(jf), ierror, nuout) 
+     $          file_unit_field(jf), ierror) 
 c            IF (jf.eq.6)
 c     $          CALL locwrite(cl_writ(jf),ictemp, imjm,
-c     $          file_unit_field(jf), ierror, nuout) 
+c     $          file_unit_field(jf), ierror) 
             IF (jf.eq.6)
      $          CALL locwrite(cl_writ(jf),evice, imjm,
-     $          file_unit_field(jf), ierror, nuout) 
+     $          file_unit_field(jf), ierror) 
             IF (jf.eq.7)
      $          CALL locwrite(cl_writ(jf),evwat, imjm,
-     $          file_unit_field(jf), ierror, nuout) 
+     $          file_unit_field(jf), ierror) 
             IF (jf.eq.8)
      $          CALL locwrite(cl_writ(jf),lpre, imjm,
-     $          file_unit_field(jf), ierror, nuout) 
+     $          file_unit_field(jf), ierror) 
             IF (jf.eq.9)
      $          CALL locwrite(cl_writ(jf),spre, imjm,
-     $          file_unit_field(jf), ierror, nuout) 
+     $          file_unit_field(jf), ierror) 
             IF (jf.eq.10)
      $          CALL locwrite(cl_writ(jf),dirunoff, imjm,
-     $          file_unit_field(jf), ierror, nuout) 
+     $          file_unit_field(jf), ierror) 
             IF (jf.eq.11)
      $          CALL locwrite(cl_writ(jf),rivrunoff, imjm,
-     $          file_unit_field(jf), ierror, nuout) 
+     $          file_unit_field(jf), ierror) 
 c$$$            IF (jf.eq.12)
 c$$$     $          CALL locwrite(cl_writ(jf),tauxu, imjm,
-c$$$     $          file_unit_field(jf),ierror, nuout) 
+c$$$     $          file_unit_field(jf),ierror) 
 c$$$            IF (jf.eq.13)
 c$$$     $          CALL locwrite(cl_writ(jf),tauxv, imjm,
-c$$$     $          file_unit_field(jf),ierror, nuout) 
+c$$$     $          file_unit_field(jf),ierror) 
 c$$$            IF (jf.eq.14)
 c$$$     $          CALL locwrite(cl_writ(jf),tauyv, imjm,
-c$$$     $          file_unit_field(jf),ierror, nuout) 
+c$$$     $          file_unit_field(jf),ierror) 
 c$$$            IF (jf.eq.15)
 c$$$     $          CALL locwrite(cl_writ(jf),tauyu, imjm,
-c$$$     $          file_unit_field(jf), ierror, nuout) 
+c$$$     $          file_unit_field(jf), ierror) 
             IF (jf.eq.12)
      $          CALL locwrite(cl_writ(jf),tauxx_u, imjm,