Changeset 761 for LMDZ4/trunk/libf/bibio


Ignore:
Timestamp:
Jun 4, 2007, 3:15:06 PM (17 years ago)
Author:
Laurent Fairhead
Message:

Merge entre la version V3_conv et le HEAD
YM, JG, LF

Location:
LMDZ4/trunk/libf/bibio
Files:
2 added
4 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/bibio/initdynav.F

    r524 r761  
    88
    99       USE IOIPSL
    10        USE histcom
    1110
    1211      implicit none

  • LMDZ4/trunk/libf/bibio/initfluxsto.F

    r524 r761  
    77
    88       USE IOIPSL
    9        USE histcom
    109
    1110      implicit none

  • LMDZ4/trunk/libf/bibio/inithist.F

    r524 r761  
    66
    77       USE IOIPSL
    8        USE histcom
    98
    109      implicit none

  • LMDZ4/trunk/libf/bibio/write_field.F90

    r677 r761  
    1212  interface WriteField
    1313    module procedure WriteField3d,WriteField2d,WriteField1d
    14   end interface
    15 
     14  end interface WriteField
    1615  contains
    1716 
    … …  
    227226        write (id,spacing)
    228227      else
    229         write (id,'("")')
     228        write (id,'')
    230229        write (id,spacing)
    231230      endif
    … …  
    304303  end subroutine write_field3D 
    305304 
    306   subroutine WriteField_phy(name,Field,ll)
    307     USE dimphy
    308     implicit none
    309     include 'dimensions90.h'
    310     include 'paramet90.h'
    311     character(len=*)   :: name
    312     integer :: ll
    313     real, dimension(klon2,ll) :: Field
    314     real, dimension(iim,jjp1,ll):: New_Field
    315    
    316    
    317     CALL gr_fi_ecrit(ll, klon2,iim,jjp1, Field, New_Field)
    318     CALL WriteField(name,New_Field)
    319   end subroutine WriteField_phy 
    320      
    321305  function int2str(int)
    322306    implicit none
Note: See TracChangeset for help on using the changeset viewer.