Ignore:
Timestamp:
Aug 2, 2024, 2:12:03 PM (7 weeks ago)
Author:
abarral
Message:

Add missing klon on strataer_emiss_mod.F90
Correct various missing explicit declarations
Replace tabs by spaces (tabs are not part of the fortran charset)
Continue cleaning modules
Removed unused arguments and variables

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/phyetat0_mod.F90

    r5144 r5158  
    557557                 xtsnow,snow, &
    558558                 'phyetat0 1101a',niso,klon,nbsrf)
    559         do i=1,klon 
     559        DO i=1,klon
    560560              CALL iso_verif_egalite(Rland_ice(iso_eau,i),1.0, &
    561561               'phyetat0 1101b')
Note: See TracChangeset for help on using the changeset viewer.