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

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

File:
1 moved

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3d_common/tracstoke_mod_h.f90

    r5282 r5283  
    1 !
    2 ! $Header$
    3 !
    4       common /tracstoke/istdyn,istphy,unittrac
    5       integer istdyn,istphy,unittrac
     1! Replaces tracstoke.h
     2MODULE tracstoke_mod_h
     3  IMPLICIT NONE; PRIVATE
     4  PUBLIC istdyn, istphy, unittrac
     5
     6  INTEGER istdyn, istphy, unittrac
     7END MODULE tracstoke_mod_h
Note: See TracChangeset for help on using the changeset viewer.