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

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

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

Legend:

Unmodified
Added
Removed

  • TabularUnified LMDZ6/trunk/libf/dyn3dmem/fluxstokenc_p.f90

    r5272 r5283  
    66      SUBROUTINE fluxstokenc_p(pbaru,pbarv , &
    77              masse,  teta, phi)
     8  USE tracstoke_mod_h
    89  USE parallel_lmdz
    910  USE control_mod, ONLY : iapp_tracvl,planet_type,iphysiq
    … …  
    3233
    3334
    34   include "tracstoke.h"
    3535
    3636  !   Arguments:

  • TabularUnified LMDZ6/trunk/libf/dyn3dmem/gcm.F90

    r5282 r5283  
    3232  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    3333          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     34  USE tracstoke_mod_h
    3435IMPLICIT NONE
    3536
    … …  
    6364  !   Declarations:
    6465  !   -------------
    65   include "tracstoke.h"
    66 
    67 
    6866  REAL zdtvr
    6967
Note: See TracChangeset for help on using the changeset viewer.