Ignore:
Timestamp:
Oct 28, 2024, 4:58:32 PM (13 months ago)
Author:
abarral
Message:

Move academic.h chem.h chem_spla.h to module

Location:
LMDZ6/trunk/libf/dyn3dmem
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3dmem/friction_loc.f90

    r5285 r5292  
    1212  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1313  USE paramet_mod_h
     14  USE academic_mod_h, ONLY: kfrict
    1415IMPLICIT NONE
    1516
    … …  
    2526  !                   iniacademic.F)
    2627  !=======================================================================
    27 
    28 
    29   include "academic.h"
    3028
    3129  ! arguments:

  • LMDZ6/trunk/libf/dyn3dmem/iniacademic_loc.f90

    r5285 r5292  
    44SUBROUTINE iniacademic_loc(vcov,ucov,teta,q,masse,ps,phis,time_0)
    55
    6   USE iniprint_mod_h
     6USE academic_mod_h
     7    USE iniprint_mod_h
    78  USE comgeom_mod_h
    89  USE filtreg_mod, ONLY: inifilr
    … …  
    3839
    3940
    40   include "academic.h"
    4141
    4242  !   Arguments:

  • LMDZ6/trunk/libf/dyn3dmem/leapfrog_loc.f90

    r5285 r5292  
    4545   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    4646   USE paramet_mod_h
     47   USE academic_mod_h, ONLY: tetarappel, knewt_t, knewt_g, clat4
    4748IMPLICIT NONE
    4849
    … …  
    7778  !   Declarations:
    7879  !   -------------
    79   include "academic.h"
    80 
    8180  REAL,INTENT(IN) :: time_0 ! not used
    8281
Note: See TracChangeset for help on using the changeset viewer.