Changeset 704 for LMDZ4/branches/V3_test/libf/bibio/write_field.F90

Timestamp:

Aug 17, 2006, 5:41:51 PM (18 years ago)

Author:

Laurent Fairhead

Message:

Inclusion des modifs de Y. Meurdesoif pour la version V3
LF

File:

• LMDZ4/branches/V3_test/libf/bibio/write_field.F90 (modified) (3 diffs)

LMDZ4/branches/V3_test/libf/bibio/write_field.F90

@@ -12 +12 @@
   interface WriteField
     module procedure WriteField3d,WriteField2d,WriteField1d
-  end interface
-
+  end interface WriteField
   contains
   
@@ -227 +226 @@
         write (id,spacing)
       else
-        write (id,'("")')
+        write (id,'')
         write (id,spacing)
       endif
@@ -304 +303 @@
   end subroutine write_field3D  
   
-  subroutine WriteField_phy(name,Field,ll)
-    USE dimphy
-    implicit none
-    include 'dimensions90.h'
-    include 'paramet90.h'
-    character(len=*)   :: name
-    integer :: ll
-    real, dimension(klon2,ll) :: Field
-    real, dimension(iim,jjp1,ll):: New_Field
-    
-    
-    CALL gr_fi_ecrit(ll, klon2,iim,jjp1, Field, New_Field)
-    CALL WriteField(name,New_Field)
-  end subroutine WriteField_phy  
-     
   function int2str(int)
     implicit none