Changeset 5280 for LMDZ6/trunk
- Timestamp:
- Oct 28, 2024, 10:47:48 AM (2 months ago)
- Location:
- LMDZ6/trunk/libf
- Files:
-
- 28 edited
- 4 moved
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3d/advtrac.f90
r5272 r5280 9 9 ! M.A Filiberti (04/2002) 10 10 ! 11 USE comdissip_mod_h 11 12 USE infotrac, ONLY: nqtot, tracers, isoCheck 12 13 USE control_mod, ONLY: iapp_tracvl, day_step … … 21 22 22 23 23 include "comdissip.h"24 24 include "comgeom2.h" 25 25 include "description.h" -
LMDZ6/trunk/libf/dyn3d/conf_gcm.f90
r5272 r5280 4 4 SUBROUTINE conf_gcm( tapedef, etatinit ) 5 5 6 USE comdissnew_mod_h 6 7 USE control_mod 7 8 use IOIPSL … … 38 39 39 40 40 include "comdissnew.h"41 41 include "iniprint.h" 42 42 -
LMDZ6/trunk/libf/dyn3d/dissip.f90
r5272 r5280 4 4 SUBROUTINE dissip( vcov,ucov,teta,p, dv,du,dh ) 5 5 ! 6 USE comdissipn_mod_h 7 USE comdissnew_mod_h 6 8 USE comconst_mod, ONLY: dtdiss 7 9 … … 33 35 34 36 include "comgeom.h" 35 include "comdissnew.h"36 include "comdissipn.h"37 37 38 38 ! Arguments: -
LMDZ6/trunk/libf/dyn3d/gcm.f90
r5272 r5280 5 5 ! 6 6 PROGRAM gcm 7 USE comdissnew_mod_h 7 8 USE IOIPSL 8 9 USE wxios ! ug Pour les sorties XIOS … … 18 19 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 19 20 ! FH 2008/05/09 On elimine toutes les clefs physiques dans la dynamique 20 ! A nettoyer. On ne veut qu'une ou deux routines d'interface 21 ! A nettoyer. On ne veut qu'une ou deux routines d'interface 21 22 ! dynamique -> physique pour l'initialisation 22 23 USE iniphysiq_mod, ONLY: iniphysiq … … 29 30 ! ...... Version du 10/01/98 .......... 30 31 31 ! avec coordonnees verticales hybrides 32 ! avec coordonnees verticales hybrides 32 33 ! avec nouveaux operat. dissipation * ( gradiv2,divgrad2,nxgraro2 ) 33 34 … … 56 57 ! Declarations: 57 58 ! ------------- 58 include "comdissnew.h"59 59 include "comgeom.h" 60 60 include "description.h" -
LMDZ6/trunk/libf/dyn3d/leapfrog.F90
r5272 r5280 6 6 SUBROUTINE leapfrog(ucov,vcov,teta,ps,masse,phis,q,time_0) 7 7 !IM : pour sortir les param. du modele dans un fis. netcdf 110106 8 USE comdissnew_mod_h 8 9 use IOIPSL 9 10 USE infotrac, ONLY: nqtot, isoCheck … … 59 60 ! Declarations: 60 61 ! ------------- 61 include "comdissnew.h"62 62 include "comgeom.h" 63 63 include "description.h" -
LMDZ6/trunk/libf/dyn3d/replay3d.f90
r5272 r5280 5 5 ! 6 6 PROGRAM replay3d 7 USE comdissnew_mod_h 7 8 USE comvert_mod, only : preff, pa 8 9 USE inigeomphy_mod, ONLY: inigeomphy … … 18 19 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 19 20 ! FH 2008/05/09 On elimine toutes les clefs physiques dans la dynamique 20 ! A nettoyer. On ne veut qu'une ou deux routines d'interface 21 ! A nettoyer. On ne veut qu'une ou deux routines d'interface 21 22 ! dynamique -> physique pour l'initialisation 22 23 USE iniphysiq_mod, ONLY: iniphysiq … … 29 30 ! ...... Version du 10/01/98 .......... 30 31 31 ! avec coordonnees verticales hybrides 32 ! avec coordonnees verticales hybrides 32 33 ! avec nouveaux operat. dissipation * ( gradiv2,divgrad2,nxgraro2 ) 33 34 … … 56 57 ! Declarations: 57 58 ! ------------- 58 include "comdissnew.h"59 59 include "comgeom2.h" 60 60 -
LMDZ6/trunk/libf/dyn3d/top_bound.F90
r5272 r5280 4 4 SUBROUTINE top_bound(vcov,ucov,teta,masse,dt) 5 5 6 USE comconst_mod, ONLY: iflag_top_bound, mode_top_bound, & 6 USE comdissipn_mod_h 7 USE comconst_mod, ONLY: iflag_top_bound, mode_top_bound, & 7 8 tau_top_bound 8 9 USE comvert_mod, ONLY: presnivs, preff, scaleheight … … 57 58 58 59 59 INCLUDE "comdissipn.h"60 60 INCLUDE "iniprint.h" 61 61 -
LMDZ6/trunk/libf/dyn3d_common/adaptdt.f90
r5272 r5280 5 5 masse) 6 6 7 USE comdissip_mod_h 7 8 USE comconst_mod, ONLY: dtvr 8 9 USE dimensions_mod, ONLY: iim, jjm, llm, ndm … … 13 14 14 15 15 include "comdissip.h"16 16 include "comgeom2.h" 17 17 include "description.h" -
LMDZ6/trunk/libf/dyn3d_common/comdissip_mod_h.f90
r5279 r5280 1 ! 2 ! $Header$ 3 ! 4 !----------------------------------------------------------------------- 5 ! INCLUDE comdissip.h 1 ! Replaces comdissip.h 2 MODULE comdissip_mod_h 3 IMPLICIT NONE; PRIVATE 4 PUBLIC coefdis, tetavel, tetatemp, gamdissip, niterdis 6 5 7 COMMON/comdissip/ & 8 & niterdis,coefdis,tetavel,tetatemp,gamdissip 9 10 11 INTEGER niterdis 12 13 REAL tetavel,tetatemp,coefdis,gamdissip 14 15 !----------------------------------------------------------------------- 6 INTEGER niterdis 7 REAL tetavel, tetatemp, coefdis, gamdissip 8 END MODULE comdissip_mod_h -
LMDZ6/trunk/libf/dyn3d_common/comdissipn_mod_h.f90
r5279 r5280 1 ! 2 ! $Header$ 3 ! 4 ! Attention : ce fichier include est compatible format fixe/format libre 5 ! veillez à n'utiliser que des ! pour les commentaires 6 ! et à bien positionner les & des lignes de continuation 7 ! (les placer en colonne 6 et en colonne 73) 8 !----------------------------------------------------------------------- 9 ! INCLUDE comdissipn.h 1 ! Replaces comdissipn.h 2 MODULE comdissipn_mod_h 3 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 4 IMPLICIT NONE; PRIVATE 5 PUBLIC tetaudiv, tetaurot, tetah, cdivu, crot, cdivh 10 6 11 REAL tetaudiv, tetaurot, tetah, cdivu, crot, cdivh12 !13 COMMON/comdissipn/ tetaudiv(llm),tetaurot(llm),tetah(llm) , &14 & cdivu, crot, cdivh15 7 16 ! 17 ! Les parametres de ce common proviennent des calculs effectues dans 18 ! Inidissip . 19 ! 20 !----------------------------------------------------------------------- 8 9 REAL tetaudiv(llm), tetaurot(llm), tetah(llm), cdivu, crot, cdivh 10 END MODULE comdissipn_mod_h -
LMDZ6/trunk/libf/dyn3d_common/comdissnew_mod_h.f90
r5279 r5280 1 ! 2 ! $Id$ 3 ! 4 ! 5 ! ATTENTION!!!!: ce fichier include est compatible format fixe/format libre 6 ! veillez à n'utiliser que des ! pour les commentaires 7 ! et à bien positionner les & des lignes de continuation 8 ! (les placer en colonne 6 et en colonne 73) 9 ! 10 !----------------------------------------------------------------------- 11 ! INCLUDE 'comdissnew.h' 1 ! Replaces comdissnew.h 12 2 13 COMMON/comdissnew/ lstardis,nitergdiv,nitergrot,niterh,tetagdiv, & 14 & tetagrot,tetatemp,coefdis, vert_prof_dissip 3 MODULE comdissnew_mod_h 4 IMPLICIT NONE; PRIVATE 5 PUBLIC lstardis, nitergdiv, nitergrot, niterh, tetagdiv, & 6 tetagrot, tetatemp, coefdis, vert_prof_dissip 15 7 16 17 8 LOGICAL lstardis 9 INTEGER nitergdiv, nitergrot, niterh 18 10 19 integervert_prof_dissip ! vertical profile of horizontal dissipation20 ! Allowed values:21 ! 0: rational fraction, function of pressure22 ! 1: tanh of altitude11 INTEGER vert_prof_dissip ! vertical profile of horizontal dissipation 12 ! Allowed values: 13 ! 0: rational fraction, function of pressure 14 ! 1: tanh of altitude 23 15 24 REAL tetagdiv, tetagrot, tetatemp, coefdis 25 26 ! 27 ! ... Les parametres de ce common comdissnew sont lues par defrun_new 28 ! sur le fichier run.def .... 29 ! 30 !----------------------------------------------------------------------- 16 REAL tetagdiv, tetagrot, tetatemp, coefdis 17 ! ... Les parametres de ce lmdz_comdissnew sont lues par defrun_new 18 ! sur le fichier run.def .... 19 END MODULE comdissnew_mod_h -
LMDZ6/trunk/libf/dyn3d_common/divgrad.f90
r5272 r5280 3 3 ! 4 4 SUBROUTINE divgrad (klevel,h, lh, divgra ) 5 USE comdissipn_mod_h 5 6 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 6 7 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & … … 26 27 27 28 include "comgeom.h" 28 include "comdissipn.h"29 29 ! 30 30 INTEGER :: klevel -
LMDZ6/trunk/libf/dyn3d_common/divgrad2.f90
r5272 r5280 13 13 ! divgra est un argument de sortie pour le s-prg 14 14 ! 15 USE comdissipn_mod_h 15 16 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 16 17 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & … … 21 22 22 23 INCLUDE "comgeom2.h" 23 INCLUDE "comdissipn.h"24 24 25 25 ! ....... variables en arguments ....... -
LMDZ6/trunk/libf/dyn3d_common/gradiv.f90
r5272 r5280 17 17 ! 18 18 ! 19 USE comdissipn_mod_h 19 20 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 20 21 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & … … 24 25 25 26 26 include "comdissipn.h"27 27 28 28 INTEGER :: klevel -
LMDZ6/trunk/libf/dyn3d_common/gradiv2.f90
r5272 r5280 16 16 ! 17 17 ! 18 USE comdissipn_mod_h 18 19 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 19 20 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & … … 24 25 25 26 INCLUDE "comgeom.h" 26 INCLUDE "comdissipn.h"27 27 ! 28 28 ! ........ variables en arguments ........ -
LMDZ6/trunk/libf/dyn3d_common/inidissip.f90
r5272 r5280 11 11 ! ------------- 12 12 13 USE comdissipn_mod_h 13 14 USE control_mod, only : dissip_period,iperiod 14 15 USE comconst_mod, ONLY: dissip_deltaz, dissip_factz, dissip_zref, & … … 22 23 23 24 24 include "comdissipn.h"25 25 include "iniprint.h" 26 26 -
LMDZ6/trunk/libf/dyn3d_common/inigeom.f90
r5272 r5280 16 16 ! 17 17 ! 18 USE comdissnew_mod_h 18 19 use fxhyp_m, only: fxhyp 19 20 use fyhyp_m, only: fyhyp … … 30 31 31 32 include "comgeom2.h" 32 include "comdissnew.h"33 33 34 34 !----------------------------------------------------------------------- -
LMDZ6/trunk/libf/dyn3d_common/interpre.f90
r5272 r5280 6 6 unatppm,vnatppm,psppm) 7 7 8 USE comdissip_mod_h 8 9 USE comconst_mod, ONLY: g 9 10 USE comvert_mod, ONLY: ap, bp … … 16 17 17 18 18 include "comdissip.h"19 19 include "comgeom2.h" 20 20 include "description.h" -
LMDZ6/trunk/libf/dyn3d_common/nxgraro2.f90
r5272 r5280 15 15 ! 16 16 ! 17 USE comdissipn_mod_h 17 18 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 18 19 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & … … 22 23 23 24 24 INCLUDE "comdissipn.h"25 25 ! 26 26 ! ...... variables en arguments ....... -
LMDZ6/trunk/libf/dyn3d_common/nxgrarot.f90
r5272 r5280 16 16 ! 17 17 ! 18 USE comdissipn_mod_h 18 19 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 19 20 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & … … 24 25 25 26 26 include "comdissipn.h"27 27 ! 28 28 INTEGER :: klevel -
LMDZ6/trunk/libf/dyn3d_common/traceurpole.f90
r5272 r5280 4 4 subroutine traceurpole(q,masse) 5 5 6 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 6 USE comdissip_mod_h 7 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 7 8 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 8 9 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm … … 11 12 12 13 13 include "comdissip.h"14 14 include "comgeom2.h" 15 15 include "description.h" -
LMDZ6/trunk/libf/dyn3dmem/advtrac_loc.f90
r5272 r5280 8 8 ! M.A Filiberti (04/2002) 9 9 ! 10 USE comdissip_mod_h 10 11 USE infotrac, ONLY: nqtot, tracers 11 12 USE control_mod, ONLY: iapp_tracvl, day_step, planet_type … … 28 29 29 30 30 include "comdissip.h"31 31 include "comgeom2.h" 32 32 include "description.h" -
LMDZ6/trunk/libf/dyn3dmem/conf_gcm.F90
r5272 r5280 4 4 SUBROUTINE conf_gcm( tapedef, etatinit ) 5 5 6 USE comdissnew_mod_h 6 7 USE control_mod 7 8 USE IOIPSL … … 43 44 44 45 45 include "comdissnew.h"46 46 include "iniprint.h" 47 47 -
LMDZ6/trunk/libf/dyn3dmem/dissip_loc.f90
r5272 r5280 4 4 SUBROUTINE dissip_loc( vcov,ucov,teta,p, dv,du,dh ) 5 5 ! 6 USE comdissipn_mod_h 7 USE comdissnew_mod_h 6 8 USE parallel_lmdz 7 9 USE write_field_loc … … 36 38 37 39 include "comgeom.h" 38 include "comdissnew.h"39 include "comdissipn.h"40 40 41 41 ! Arguments: -
LMDZ6/trunk/libf/dyn3dmem/divgrad2_loc.f90
r5272 r5280 10 10 ! divgra est un argument de sortie pour le s-prg 11 11 ! 12 USE comdissipn_mod_h 12 13 USE parallel_lmdz 13 14 USE times … … 22 23 23 24 INCLUDE "comgeom2.h" 24 INCLUDE "comdissipn.h"25 25 26 26 ! ....... variables en arguments ....... -
LMDZ6/trunk/libf/dyn3dmem/gcm.F90
r5272 r5280 13 13 ! USE mod_interface_dyn_phys, ONLY: init_interface_dyn_phys 14 14 !#endif 15 USE comdissnew_mod_h 15 16 USE mod_hallo 16 17 USE Bands … … 60 61 ! Declarations: 61 62 ! ------------- 62 include "comdissnew.h"63 63 include "comgeom.h" 64 64 include "description.h" -
LMDZ6/trunk/libf/dyn3dmem/gradiv2_loc.f90
r5272 r5280 13 13 ! 14 14 ! 15 USE comdissipn_mod_h 15 16 USE parallel_lmdz 16 17 USE times … … 27 28 28 29 INCLUDE "comgeom.h" 29 INCLUDE "comdissipn.h"30 30 ! 31 31 ! ........ variables en arguments ........ -
LMDZ6/trunk/libf/dyn3dmem/leapfrog_loc.f90
r5272 r5280 2 2 masse0,phis0,q0,time_0) 3 3 4 USE comdissnew_mod_h 4 5 USE misc_mod 5 6 USE parallel_lmdz … … 75 76 ! Declarations: 76 77 ! ------------- 77 include "comdissnew.h"78 78 include "comgeom.h" 79 79 include "description.h" -
LMDZ6/trunk/libf/dyn3dmem/nxgraro2_loc.f90
r5272 r5280 12 12 ! 13 13 ! 14 USE comdissipn_mod_h 14 15 USE write_Field_p 15 16 USE parallel_lmdz … … 25 26 26 27 27 INCLUDE "comdissipn.h"28 28 ! 29 29 ! ...... variables en arguments ....... -
LMDZ6/trunk/libf/dyn3dmem/top_bound_loc.f90
r5272 r5280 3 3 ! 4 4 SUBROUTINE top_bound_loc(vcov,ucov,teta,masse,dt) 5 USE comdissipn_mod_h 5 6 USE parallel_lmdz 6 7 USE comconst_mod, ONLY: iflag_top_bound, mode_top_bound, & … … 57 58 58 59 59 INCLUDE "comdissipn.h"60 60 INCLUDE "iniprint.h" 61 61 -
LMDZ6/trunk/libf/dynphy_lonlat/phylmd/etat0dyn_netcdf.F90
r5272 r5280 40 40 USE temps_mod, ONLY: annee_ref, day_ref, itau_dyn, itau_phy, start_time 41 41 USE strings_mod, ONLY: strLower 42 42 43 43 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 44 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &44 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 45 45 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 46 USE comdissnew_mod_h 46 47 IMPLICIT NONE 47 48 … … 53 54 54 55 include "comgeom2.h" 55 include "comdissnew.h"56 56 REAL, SAVE :: deg2rad 57 57 INTEGER, SAVE :: iml_dyn, jml_dyn, llm_dyn, ttm_dyn, fid_dyn -
LMDZ6/trunk/libf/phylmd/dyn1d/comdissnew_mod_h.f90
r5279 r5280 1 link ../../dyn3d_common/comdissnew .h1 link ../../dyn3d_common/comdissnew_mod_h.f90
Note: See TracChangeset
for help on using the changeset viewer.