Ignore:
Timestamp:
Aug 2, 2024, 2:12:03 PM (3 months 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/phylmd/ocean_albedo.F90

    r5137 r5158  
    2424!!    AUTHOR
    2525!!    ------
    26 !!      R. Séférian           * Meteo-France *
     26!!    R. Séférian           * Meteo-France *
    2727!!
    2828!!    MODIFICATIONS
     
    158158!!  ENDWHERE
    159159
    160     do JI = 1, knon
     160    DO JI = 1, knon
    161161      IF (ZCHL(JI) > 0.02) THEN
    162162        ZNU(JI)=MIN(0.0,0.5*(ZWORK3(JI)-0.3))
Note: See TracChangeset for help on using the changeset viewer.