Changeset 5134 for LMDZ6/branches/Amaury_dev/libf/dyn3d
- Timestamp:
- Jul 26, 2024, 5:56:37 PM (8 weeks ago)
- Location:
- LMDZ6/branches/Amaury_dev/libf/dyn3d
- Files:
-
- 35 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/dyn3d/addfi.F90
r5123 r5134 46 46 ! ------------------ 47 47 ! 48 include"dimensions.h"49 include"paramet.h"50 include"comgeom.h"48 INCLUDE "dimensions.h" 49 INCLUDE "paramet.h" 50 INCLUDE "comgeom.h" 51 51 ! 52 52 ! Arguments : -
LMDZ6/branches/Amaury_dev/libf/dyn3d/advect.F90
r5123 r5134 28 28 ! ------------- 29 29 30 include"dimensions.h"31 include"paramet.h"32 include"comgeom.h"30 INCLUDE "dimensions.h" 31 INCLUDE "paramet.h" 32 INCLUDE "comgeom.h" 33 33 34 34 ! Arguments: -
LMDZ6/branches/Amaury_dev/libf/dyn3d/advtrac.f90
r5119 r5134 18 18 USE lmdz_iniprint, ONLY: lunout, prt_level 19 19 USE lmdz_ssum_scopy, ONLY: scopy 20 USE lmdz_comdissip, ONLY: coefdis, tetavel, tetatemp, gamdissip, niterdis 20 21 21 22 IMPLICIT NONE 22 23 23 include "dimensions.h" 24 include "paramet.h" 25 include "comdissip.h" 26 include "comgeom2.h" 24 INCLUDE "dimensions.h" 25 INCLUDE "paramet.h" 26 INCLUDE "comgeom2.h" 27 27 28 28 !--------------------------------------------------------------------------- -
LMDZ6/branches/Amaury_dev/libf/dyn3d/bilan_dyn.F90
r5128 r5134 18 18 IMPLICIT NONE 19 19 20 include"dimensions.h"21 include"paramet.h"22 include"comgeom2.h"20 INCLUDE "dimensions.h" 21 INCLUDE "paramet.h" 22 INCLUDE "comgeom2.h" 23 23 24 24 !==================================================================== -
LMDZ6/branches/Amaury_dev/libf/dyn3d/caladvtrac.F90
r5119 r5134 24 24 !======================================================================= 25 25 26 include"dimensions.h"27 include"paramet.h"26 INCLUDE "dimensions.h" 27 INCLUDE "paramet.h" 28 28 29 29 ! Arguments: -
LMDZ6/branches/Amaury_dev/libf/dyn3d/caldyn.F90
r5113 r5134 25 25 ! ---------------- 26 26 27 include"dimensions.h"28 include"paramet.h"29 include"comgeom.h"27 INCLUDE "dimensions.h" 28 INCLUDE "paramet.h" 29 INCLUDE "comgeom.h" 30 30 31 31 ! Arguments: -
LMDZ6/branches/Amaury_dev/libf/dyn3d/check_isotopes.F90
r5128 r5134 5 5 6 6 IMPLICIT NONE 7 include"dimensions.h"7 INCLUDE "dimensions.h" 8 8 REAL, INTENT(INOUT) :: q(ip1jmp1,llm,nqtot) 9 9 INTEGER, INTENT(IN) :: ip1jmp1 -
LMDZ6/branches/Amaury_dev/libf/dyn3d/conf_gcm.f90
r5128 r5134 17 17 USE temps_mod, ONLY: calend, year_len 18 18 USE lmdz_iniprint, ONLY: lunout, prt_level 19 19 USE lmdz_comdissnew, ONLY: lstardis, nitergdiv, nitergrot, niterh, tetagdiv, & 20 tetagrot, tetatemp, coefdis, vert_prof_dissip 20 21 21 22 IMPLICIT NONE … … 34 35 ! Declarations : 35 36 ! -------------- 36 include "dimensions.h" 37 include "paramet.h" 38 include "comdissnew.h" 37 INCLUDE "dimensions.h" 38 INCLUDE "paramet.h" 39 39 40 40 ! local: -
LMDZ6/branches/Amaury_dev/libf/dyn3d/covnat.F90
r5106 r5134 18 18 !======================================================================= 19 19 20 include"dimensions.h"21 include"paramet.h"22 include"comgeom.h"20 INCLUDE "dimensions.h" 21 INCLUDE "paramet.h" 22 INCLUDE "comgeom.h" 23 23 24 24 INTEGER :: klevel -
LMDZ6/branches/Amaury_dev/libf/dyn3d/dissip.F90
r5123 r5134 2 2 3 3 SUBROUTINE dissip(vcov, ucov, teta, p, dv, du, dh) 4 !5 4 USE comconst_mod, ONLY: dtdiss 5 USE lmdz_comdissipn, ONLY: tetaudiv, tetaurot, tetah, cdivu, crot, cdivh 6 USE lmdz_comdissnew, ONLY: lstardis, nitergdiv, nitergrot, niterh, tetagdiv, & 7 tetagrot, tetatemp, coefdis, vert_prof_dissip 6 8 7 9 IMPLICIT NONE … … 26 28 ! ------------- 27 29 28 include "dimensions.h" 29 include "paramet.h" 30 include "comgeom.h" 31 include "comdissnew.h" 32 include "comdissipn.h" 30 INCLUDE "dimensions.h" 31 INCLUDE "paramet.h" 32 INCLUDE "comgeom.h" 33 33 34 34 ! Arguments: -
LMDZ6/branches/Amaury_dev/libf/dyn3d/dteta1.F90
r5106 r5134 20 20 !======================================================================= 21 21 22 include"dimensions.h"23 include"paramet.h"22 INCLUDE "dimensions.h" 23 INCLUDE "paramet.h" 24 24 25 25 REAL :: teta(ip1jmp1, llm), pbaru(ip1jmp1, llm), pbarv(ip1jm, llm) -
LMDZ6/branches/Amaury_dev/libf/dyn3d/dudv1.F90
r5106 r5134 18 18 !----------------------------------------------------------------------- 19 19 20 include"dimensions.h"21 include"paramet.h"20 INCLUDE "dimensions.h" 21 INCLUDE "paramet.h" 22 22 23 23 REAL :: vorpot(ip1jm, llm), pbaru(ip1jmp1, llm), & -
LMDZ6/branches/Amaury_dev/libf/dyn3d/dudv2.F90
r5106 r5134 25 25 !======================================================================= 26 26 ! 27 include"dimensions.h"28 include"paramet.h"27 INCLUDE "dimensions.h" 28 INCLUDE "paramet.h" 29 29 30 30 REAL :: teta(ip1jmp1, llm), pkf(ip1jmp1, llm), bern(ip1jmp1, llm), & -
LMDZ6/branches/Amaury_dev/libf/dyn3d/dynetat0.F90
r5128 r5134 25 25 26 26 IMPLICIT NONE 27 include"dimensions.h"28 include"paramet.h"29 include"comgeom2.h"27 INCLUDE "dimensions.h" 28 INCLUDE "paramet.h" 29 INCLUDE "comgeom2.h" 30 30 !=============================================================================== 31 31 ! Arguments: -
LMDZ6/branches/Amaury_dev/libf/dyn3d/dynredem.F90
r5118 r5134 22 22 23 23 IMPLICIT NONE 24 include"dimensions.h"25 include"paramet.h"26 include"comgeom2.h"24 INCLUDE "dimensions.h" 25 INCLUDE "paramet.h" 26 INCLUDE "comgeom2.h" 27 27 !=============================================================================== 28 28 ! Arguments: … … 169 169 170 170 IMPLICIT NONE 171 include"dimensions.h"172 include"paramet.h"173 include"comgeom.h"171 INCLUDE "dimensions.h" 172 INCLUDE "paramet.h" 173 INCLUDE "comgeom.h" 174 174 !=============================================================================== 175 175 ! Arguments: -
LMDZ6/branches/Amaury_dev/libf/dyn3d/dynredem_mod.F90
r5128 r5134 7 7 PUBLIC :: dynredem_write_u, dynredem_write_v, dynredem_read_u, err 8 8 PUBLIC :: cre_var, put_var1, put_var2, fil, modname, msg 9 include"dimensions.h"10 include"paramet.h"9 INCLUDE "dimensions.h" 10 INCLUDE "paramet.h" 11 11 CHARACTER(LEN = 256), SAVE :: fil, modname 12 12 INTEGER, SAVE :: nvarid -
LMDZ6/branches/Amaury_dev/libf/dyn3d/fluxstokenc.F90
r5119 r5134 16 16 IMPLICIT NONE 17 17 ! 18 include"dimensions.h"19 include"paramet.h"20 include"comgeom.h"21 include"tracstoke.h"18 INCLUDE "dimensions.h" 19 INCLUDE "paramet.h" 20 INCLUDE "comgeom.h" 21 INCLUDE "tracstoke.h" 22 22 23 23 REAL :: time_step, t_wrt, t_ops -
LMDZ6/branches/Amaury_dev/libf/dyn3d/friction.F90
r5128 r5134 8 8 USE comconst_mod, ONLY: pi 9 9 USE lmdz_iniprint, ONLY: lunout, prt_level 10 10 USE lmdz_academic, ONLY: tetarappel, knewt_t, kfrict, knewt_g, clat4 11 11 12 12 IMPLICIT NONE … … 24 24 !======================================================================= 25 25 26 include "dimensions.h" 27 include "paramet.h" 28 include "comgeom2.h" 29 include "academic.h" 26 INCLUDE "dimensions.h" 27 INCLUDE "paramet.h" 28 INCLUDE "comgeom2.h" 30 29 31 30 ! arguments: -
LMDZ6/branches/Amaury_dev/libf/dyn3d/gcm.F90
r5128 r5134 28 28 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 29 29 USE lmdz_iniprint, ONLY: lunout, prt_level 30 30 USE lmdz_comdissnew, ONLY: lstardis, nitergdiv, nitergrot, niterh, tetagdiv, & 31 tetagrot, tetatemp, coefdis, vert_prof_dissip 31 32 32 33 IMPLICIT NONE … … 62 63 ! ------------- 63 64 64 include "dimensions.h" 65 include "paramet.h" 66 include "comdissnew.h" 67 include "comgeom.h" 68 include "tracstoke.h" 65 INCLUDE "dimensions.h" 66 INCLUDE "paramet.h" 67 INCLUDE "comgeom.h" 68 INCLUDE "tracstoke.h" 69 69 70 70 REAL zdtvr -
LMDZ6/branches/Amaury_dev/libf/dyn3d/groupe.F90
r5128 r5134 20 20 ! pas besoin de w en entree. 21 21 22 include"dimensions.h"23 include"paramet.h"24 include"comgeom2.h"22 INCLUDE "dimensions.h" 23 INCLUDE "paramet.h" 24 INCLUDE "comgeom2.h" 25 25 26 26 ! integer ngroup -
LMDZ6/branches/Amaury_dev/libf/dyn3d/groupeun.F90
r5105 r5134 7 7 IMPLICIT NONE 8 8 9 include"dimensions.h"10 include"paramet.h"11 include"comgeom2.h"9 INCLUDE "dimensions.h" 10 INCLUDE "paramet.h" 11 INCLUDE "comgeom2.h" 12 12 13 13 INTEGER :: jjmax, llmax … … 137 137 IMPLICIT NONE 138 138 139 include"dimensions.h"140 include"paramet.h"141 include"comgeom2.h"139 INCLUDE "dimensions.h" 140 INCLUDE "paramet.h" 141 INCLUDE "comgeom2.h" 142 142 143 143 ! INTEGER ngroup -
LMDZ6/branches/Amaury_dev/libf/dyn3d/guide_mod.F90
r5128 r5134 678 678 IMPLICIT NONE 679 679 680 include"dimensions.h"681 include"paramet.h"682 include"comgeom2.h"680 INCLUDE "dimensions.h" 681 INCLUDE "paramet.h" 682 INCLUDE "comgeom2.h" 683 683 684 684 REAL, DIMENSION (iip1, jjp1), INTENT(IN) :: psi ! Psol gcm … … 928 928 IMPLICIT NONE 929 929 930 include"dimensions.h"931 include"paramet.h"932 include"comgeom2.h"930 INCLUDE "dimensions.h" 931 INCLUDE "paramet.h" 932 INCLUDE "comgeom2.h" 933 933 934 934 ! input arguments : … … 1094 1094 IMPLICIT NONE 1095 1095 1096 include"dimensions.h"1097 include"paramet.h"1096 INCLUDE "dimensions.h" 1097 INCLUDE "paramet.h" 1098 1098 1099 1099 INTEGER, INTENT(IN) :: timestep … … 1390 1390 IMPLICIT NONE 1391 1391 1392 include"dimensions.h"1393 include"paramet.h"1392 INCLUDE "dimensions.h" 1393 INCLUDE "paramet.h" 1394 1394 1395 1395 INTEGER, INTENT(IN) :: timestep -
LMDZ6/branches/Amaury_dev/libf/dyn3d/iniacademic.F90
r5128 r5134 19 19 USE lmdz_ran1, ONLY: ran1 20 20 USE lmdz_iniprint, ONLY: lunout, prt_level 21 21 USE lmdz_academic, ONLY: tetarappel, knewt_t, kfrict, knewt_g, clat4 22 22 23 23 ! Author: Frederic Hourdin original: 15/01/93 … … 30 30 ! --------------- 31 31 32 include "dimensions.h" 33 include "paramet.h" 34 include "comgeom.h" 35 include "academic.h" 32 INCLUDE "dimensions.h" 33 INCLUDE "paramet.h" 34 INCLUDE "comgeom.h" 36 35 37 36 ! Arguments: -
LMDZ6/branches/Amaury_dev/libf/dyn3d/integrd.F90
r5128 r5134 33 33 ! ------------- 34 34 35 include"dimensions.h"36 include"paramet.h"37 include"comgeom.h"35 INCLUDE "dimensions.h" 36 INCLUDE "paramet.h" 37 INCLUDE "comgeom.h" 38 38 39 39 ! Arguments: -
LMDZ6/branches/Amaury_dev/libf/dyn3d/leapfrog.F90
r5128 r5134 28 28 USE lmdz_iniprint, ONLY: lunout, prt_level 29 29 USE lmdz_ssum_scopy, ONLY: scopy, ssum 30 30 USE lmdz_academic, ONLY: tetarappel, knewt_t, kfrict, knewt_g, clat4 31 USE lmdz_comdissnew, ONLY: lstardis, nitergdiv, nitergrot, niterh, tetagdiv, & 32 tetagrot, tetatemp, coefdis, vert_prof_dissip 31 33 32 34 IMPLICIT NONE … … 63 65 ! ------------- 64 66 65 include "dimensions.h" 66 include "paramet.h" 67 include "comdissnew.h" 68 include "comgeom.h" 69 include "academic.h" 67 INCLUDE "dimensions.h" 68 INCLUDE "paramet.h" 69 INCLUDE "comgeom.h" 70 70 71 71 REAL, INTENT(IN) :: time_0 ! not used … … 686 686 ! For some Grads outputs of fields 687 687 IF (output_grads_dyn) THEN 688 include"write_grads_dyn.h"688 INCLUDE "write_grads_dyn.h" 689 689 endif 690 690 endif ! of if (leapf.OR.(.NOT.leapf.AND.(.NOT.forward))) … … 806 806 ! For some Grads outputs 807 807 IF (output_grads_dyn) THEN 808 include"write_grads_dyn.h"808 INCLUDE "write_grads_dyn.h" 809 809 endif 810 810 -
LMDZ6/branches/Amaury_dev/libf/dyn3d/paramet.h
r5128 r5134 3 3 4 4 5 ! ATTENTION!!!!: ce fichier includeest compatible format fixe/format libre5 ! ATTENTION!!!!: ce fichier INCLUDE est compatible format fixe/format libre 6 6 ! veillez n'utiliser que des ! pour les commentaires 7 7 ! et bien positionner les & des lignes de continuation -
LMDZ6/branches/Amaury_dev/libf/dyn3d/qminimum.F90
r5123 r5134 8 8 USE lmdz_ssum_scopy, ONLY: ssum 9 9 10 IMPLICIT none10 IMPLICIT NONE 11 11 ! 12 12 ! -- Objet : Traiter les valeurs trop petites (meme negatives) 13 13 ! pour l'eau vapeur et l'eau liquide 14 14 ! 15 include"dimensions.h"16 include"paramet.h"15 INCLUDE "dimensions.h" 16 INCLUDE "paramet.h" 17 17 ! 18 18 INTEGER :: nqtot -
LMDZ6/branches/Amaury_dev/libf/dyn3d/replay3d.F90
r5128 r5134 21 21 grossismx, grossismy, dzoomx, dzoomy,taux,tauy 22 22 USE mod_const_mpi, ONLY: comm_lmdz 23 23 USE lmdz_comdissnew, ONLY: lstardis, nitergdiv, nitergrot, niterh, tetagdiv, & 24 tetagrot, tetatemp, coefdis, vert_prof_dissip 24 25 25 26 IMPLICIT NONE … … 55 56 ! ------------- 56 57 57 include "dimensions.h" 58 include "paramet.h" 59 include "comdissnew.h" 60 include "comgeom2.h" 58 INCLUDE "dimensions.h" 59 INCLUDE "paramet.h" 60 INCLUDE "comgeom2.h" 61 61 62 62 REAL zdtvr -
LMDZ6/branches/Amaury_dev/libf/dyn3d/sw_case_williamson91_6.F90
r5118 r5134 34 34 ! --------------- 35 35 36 include"dimensions.h"37 include"paramet.h"38 include"comgeom.h"36 INCLUDE "dimensions.h" 37 INCLUDE "paramet.h" 38 INCLUDE "comgeom.h" 39 39 40 40 ! Arguments: -
LMDZ6/branches/Amaury_dev/libf/dyn3d/tetaleveli1j.F90
r5117 r5134 6 6 7 7 ! FH 2008/05/09 On elimine toutes les clefs physiques dans la dynamique 8 IMPLICIT none8 IMPLICIT NONE 9 9 10 include"dimensions.h"10 INCLUDE "dimensions.h" 11 11 12 12 !================================================================ … … 43 43 ! REAL ptop, pbot, aist(klon), aisb(klon) 44 44 ! 45 include"paramet.h"45 INCLUDE "paramet.h" 46 46 ! 47 47 INTEGER :: lt(ip1jm), lb(ip1jm) -
LMDZ6/branches/Amaury_dev/libf/dyn3d/tetaleveli1j1.F90
r5117 r5134 6 6 7 7 ! FH 2008/05/09 On elimine toutes les clefs physiques dans la dynamique 8 IMPLICIT none8 IMPLICIT NONE 9 9 10 include"dimensions.h"10 INCLUDE "dimensions.h" 11 11 12 12 !================================================================ … … 43 43 ! REAL ptop, pbot, aist(klon), aisb(klon) 44 44 ! 45 include"paramet.h"45 INCLUDE "paramet.h" 46 46 ! 47 47 INTEGER :: lt(ip1jmp1), lb(ip1jmp1) -
LMDZ6/branches/Amaury_dev/libf/dyn3d/top_bound.F90
r5118 r5134 7 7 USE comvert_mod, ONLY: presnivs, preff, scaleheight 8 8 USE lmdz_iniprint, ONLY: lunout, prt_level 9 USE lmdz_comdissipn, ONLY: tetaudiv, tetaurot, tetah, cdivu, crot, cdivh 9 10 10 11 IMPLICIT NONE 11 12 ! 12 include"dimensions.h"13 include"paramet.h"14 include"comgeom2.h"13 INCLUDE "dimensions.h" 14 INCLUDE "paramet.h" 15 INCLUDE "comgeom2.h" 15 16 16 17 … … 52 53 ! tau_top_bound : inverse of charactericstic relaxation time scale at 53 54 ! the topmost layer (Hz) 54 55 include "comdissipn.h"56 55 57 56 ! Arguments: -
LMDZ6/branches/Amaury_dev/libf/dyn3d/vlsplt.F90
r5123 r5134 22 22 IMPLICIT NONE 23 23 ! 24 include"dimensions.h"25 include"paramet.h"24 INCLUDE "dimensions.h" 25 INCLUDE "paramet.h" 26 26 27 27 ! … … 120 120 IMPLICIT NONE 121 121 ! 122 include"dimensions.h"123 include"paramet.h"122 INCLUDE "dimensions.h" 123 INCLUDE "paramet.h" 124 124 ! 125 125 ! … … 437 437 IMPLICIT NONE 438 438 ! 439 include"dimensions.h"440 include"paramet.h"441 include"comgeom.h"439 INCLUDE "dimensions.h" 440 INCLUDE "paramet.h" 441 INCLUDE "comgeom.h" 442 442 ! 443 443 ! … … 756 756 IMPLICIT NONE 757 757 ! 758 include"dimensions.h"759 include"paramet.h"758 INCLUDE "dimensions.h" 759 INCLUDE "paramet.h" 760 760 ! 761 761 ! -
LMDZ6/branches/Amaury_dev/libf/dyn3d/vlspltqs.F90
r5128 r5134 29 29 IMPLICIT NONE 30 30 ! 31 include"dimensions.h"32 include"paramet.h"31 INCLUDE "dimensions.h" 32 INCLUDE "paramet.h" 33 33 34 34 ! … … 188 188 IMPLICIT NONE 189 189 ! 190 include"dimensions.h"191 include"paramet.h"190 INCLUDE "dimensions.h" 191 INCLUDE "paramet.h" 192 192 ! 193 193 ! … … 525 525 IMPLICIT NONE 526 526 ! 527 include"dimensions.h"528 include"paramet.h"529 include"comgeom.h"527 INCLUDE "dimensions.h" 528 INCLUDE "paramet.h" 529 INCLUDE "comgeom.h" 530 530 ! 531 531 ! -
LMDZ6/branches/Amaury_dev/libf/dyn3d/wrgrads.f90
r5128 r5134 14 14 ! titlevar Titre 15 15 16 include"gradsdef.h"16 INCLUDE "gradsdef.h" 17 17 18 18 ! arguments
Note: See TracChangeset
for help on using the changeset viewer.