Ignore:
Timestamp:
Jul 24, 2024, 4:23:34 PM (3 months ago)
Author:
abarral
Message:

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/replay1d.F90

    r5116 r5117  
    1818REAL :: rlat_rad(1),rlon_rad(1)
    1919
    20 integer ntime
    21 integer jour0,mois0,an0,day_step,anneeref,dayref
    22 integer klev,klon
     20INTEGER ntime
     21INTEGER jour0,mois0,an0,day_step,anneeref,dayref
     22INTEGER klev,klon
    2323CHARACTER (len=10) :: calend
    2424CHARACTER(len=20) :: calendrier
    … …  
    104104 
    105105      CHARACTER(LEN=*) modname
    106       integer ierr
     106      INTEGER ierr
    107107      CHARACTER(LEN=*) message
    108108 
    … …  
    114114      CALL getin_dump
    115115
    116       if (ierr == 0) THEN
     116      IF (ierr == 0) THEN
    117117        WRITE(*,*) 'Everything is cool'
    118118      else
Note: See TracChangeset for help on using the changeset viewer.