Ignore:
Timestamp:
Oct 28, 2024, 1:47:34 PM (5 weeks ago)
Author:
abarral
Message:

Turn tracstoke.h conema3.h cv30_routines.f90 cv30param.h into modules

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

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/dyn3d/fluxstokenc.f90

    r5282 r5283  
    1515  !cc   ..   Modif. P. Le Van  ( 20/12/97 )  ...
    1616  !
     17  USE tracstoke_mod_h
    1718  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1819USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     
    2223
    2324
    24   include "tracstoke.h"
    2525
    2626  REAL :: time_step,t_wrt, t_ops
  • LMDZ6/trunk/libf/dyn3d/gcm.f90

    r5282 r5283  
    2828  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    2929          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     30  USE tracstoke_mod_h
    3031  IMPLICIT NONE
    3132
     
    5960  !   Declarations:
    6061  !   -------------
    61   include "tracstoke.h"
    6262
    6363  REAL zdtvr
Note: See TracChangeset for help on using the changeset viewer.