Ignore:
Timestamp:
Jul 24, 2024, 4:23:34 PM (4 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/climb_hq_mod.F90

    r5099 r5117  
    220220!****************************************************************************************
    221221!!! jyg le 07/02/2012
    222 !!jyg       IF (mod(iflag_pbl_split,2) .eq.1) THEN
     222!!jyg       IF (mod(iflag_pbl_split,2) .EQ.1) THEN
    223223       IF (mod(iflag_pbl_split,10) >=1) THEN
    224224!!! nrlmd le 02/05/2011
    … …  
    376376
    377377!!! jyg le 07/02/2012
    378 !!jyg       IF (mod(iflag_pbl_split,2) .eq.1) THEN
     378!!jyg       IF (mod(iflag_pbl_split,2) .EQ.1) THEN
    379379       IF (mod(iflag_pbl_split,10) >=1) THEN
    380380!!! nrlmd le 02/05/2011
Note: See TracChangeset for help on using the changeset viewer.