Ignore:
Timestamp:
Jul 26, 2024, 5:56:37 PM (3 months ago)
Author:
abarral
Message:

Replace academic.h, alpale.h, comdissip.h, comdissipn.h, comdissnew.h by modules
Remove unused clesph0.h

File:
1 moved

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/dyn3d_common/lmdz_academic.f90

    r5131 r5134  
    1 
     1! Replaces academic.h
    22! $Id$
    33
    4       common/academic/tetarappel,knewt_t,kfrict,knewt_g,clat4
    5       REAL :: tetarappel(ip1jmp1,llm)
    6       REAL :: knewt_t(llm)
    7       REAL :: kfrict(llm)
    8       REAL :: knewt_g
    9       REAL :: clat4(ip1jmp1)
     4MODULE lmdz_academic
     5  IMPLICIT NONE; PRIVATE
     6  INCLUDE "dimensions.h"
     7  INCLUDE "paramet.h"
     8
     9  PUBLIC tetarappel, knewt_t, kfrict, knewt_g, clat4
     10
     11  REAL :: tetarappel(ip1jmp1, llm)
     12  REAL :: knewt_t(llm)
     13  REAL :: kfrict(llm)
     14  REAL :: knewt_g
     15  REAL :: clat4(ip1jmp1)
     16
     17END MODULE lmdz_academic
Note: See TracChangeset for help on using the changeset viewer.