Ignore:
Timestamp:
Jul 29, 2024, 10:57:23 AM (8 weeks ago)
Author:
abarral
Message:

Put comsoil.h, conema3.h, cvflag.h into modules

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r5132 r5140  
    55
    66SUBROUTINE cv30_param(nd, delt)
     7  USE lmdz_conema3
     8
    79  IMPLICIT NONE
    810
    … …  
    3133
    3234  include "cv30param.h"
    33   include "conema3.h"
    3435
    3536  INTEGER nd
    … …  
    11341135    ! epmax_cape: ajout arguments
    11351136USE lmdz_abort_physic, ONLY: abort_physic
     1137USE lmdz_conema3
    11361138#ifdef ISO
    11371139USE infotrac_phy, ONLY: ntraciso=>ntiso
    … …  
    11741176  include "cvthermo.h"
    11751177  include "cv30param.h"
    1176   include "conema3.h"
    11771178
    11781179  ! inputs:
    … …  
    26682669#endif
    26692670#endif
     2671USE lmdz_cvflag
    26702672
    26712673  IMPLICIT NONE
    … …  
    26742676  include "cvthermo.h"
    26752677  include "cv30param.h"
    2676   include "cvflag.h"
    26772678
    26782679  ! inputs:
    … …  
    33773378#endif
    33783379                          )
     3380        USE lmdz_conema3
    33793381#ifdef ISO
    33803382    USE infotrac_phy, ONLY: ntraciso=>ntiso, niso, nzone, itZonIso
    … …  
    33993401#endif
    34003402#endif
     3403USE lmdz_cvflag
    34013404
    34023405  IMPLICIT NONE
    … …  
    34043407  include "cvthermo.h"
    34053408  include "cv30param.h"
    3406   include "cvflag.h"
    3407   include "conema3.h"
    34083409
    34093410  ! inputs:
    … …  
    63366337                ,epmax_diag)
    63376338        USE lmdz_abort_physic, ONLY: abort_physic
     6339                USE lmdz_conema3
     6340
    63386341        IMPLICIT NONE
    63396342
    … …  
    63456348 include "cvthermo.h"
    63466349 include "cv30param.h"
    6347  include "conema3.h"
    63486350
    63496351! inputs:
Note: See TracChangeset for help on using the changeset viewer.