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

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

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

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3d/friction.f90

    r5285 r5292  
    1111  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1212  USE paramet_mod_h
     13  USE academic_mod_h, ONLY: kfrict
    1314IMPLICIT NONE
    1415
    … …  
    2425  !                   iniacademic.F)
    2526  !=======================================================================
    26 
    27 
    28   include "academic.h"
    2927
    3028  ! arguments:

  • LMDZ6/trunk/libf/dyn3d/iniacademic.f90

    r5285 r5292  
    44SUBROUTINE iniacademic(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
    … …  
    3738
    3839
    39   include "academic.h"
    4040
    4141  !   Arguments:

  • LMDZ6/trunk/libf/dyn3d/leapfrog.F90

    r5285 r5292  
    2929  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    3030  USE paramet_mod_h
     31  USE academic_mod_h, ONLY: tetarappel, knewt_t, knewt_g, clat4
    3132  IMPLICIT NONE
    3233
    … …  
    6162  !   Declarations:
    6263  !   -------------
    63   include "academic.h"
    6464
    6565  REAL,INTENT(IN) :: time_0 ! not used
Note: See TracChangeset for help on using the changeset viewer.