Ignore:
Timestamp:
Jul 26, 2024, 7:20:23 PM (8 weeks ago)
Author:
abarral
Message:

Put iotd* into lmdz_iotd.f90

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phydev/iophy.F90

    r5119 r5135  
    145145    IMPLICIT NONE
    146146
    147     character*(*), INTENT(IN) :: name
     147    CHARACTER*(*), INTENT(IN) :: name
    148148    INTEGER, INTENT(IN) :: itau0
    149149    REAL, INTENT(IN) :: zjulian
    … …  
    173173    IMPLICIT NONE
    174174
    175     character*(*), INTENT(IN) :: name
     175    CHARACTER*(*), INTENT(IN) :: name
    176176    !    INTEGER, INTENT(IN) :: itau0
    177177    !    REAL,INTENT(IN) :: zjulian
    … …  
    209209    INTEGER, INTENT(IN) :: nid
    210210    logical, INTENT(IN) :: lpoint
    211     character*(*), INTENT(IN) :: name
     211    CHARACTER*(*), INTENT(IN) :: name
    212212    INTEGER, INTENT(IN) :: itau
    213213    REAL, DIMENSION(:), INTENT(IN) :: field
    … …  
    269269    INTEGER, INTENT(IN) :: nid
    270270    logical, INTENT(IN) :: lpoint
    271     character*(*), INTENT(IN) :: name
     271    CHARACTER*(*), INTENT(IN) :: name
    272272    INTEGER, INTENT(IN) :: itau
    273273    REAL, DIMENSION(:, :), INTENT(IN) :: field  ! --> field(klon,:)
Note: See TracChangeset for help on using the changeset viewer.