Changeset 2597 for LMDZ5/trunk/libf/dyn3d
- Timestamp:
- Jul 22, 2016, 8:44:47 AM (8 years ago)
- Location:
- LMDZ5/trunk/libf/dyn3d
- Files:
-
- 23 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dyn3d/addfi.F
r1987 r2597 46 46 c ------------------ 47 47 c 48 #include "dimensions.h" 49 #include "paramet.h" 50 #include "comconst.h" 51 #include "comgeom.h" 52 #include "serre.h" 48 include "dimensions.h" 49 include "paramet.h" 50 include "comgeom.h" 51 include "serre.h" 53 52 c 54 53 c Arguments : -
LMDZ5/trunk/libf/dyn3d/advect.F
r1907 r2597 4 4 SUBROUTINE advect(ucov,vcov,teta,w,massebx,masseby,du,dv,dteta) 5 5 6 USE comconst_mod, ONLY: daysec 7 6 8 IMPLICIT NONE 7 9 c======================================================================= … … 24 26 c ------------- 25 27 26 #include "dimensions.h" 27 #include "paramet.h" 28 #include "comconst.h" 29 #include "comvert.h" 30 #include "comgeom.h" 31 #include "logic.h" 32 #include "ener.h" 28 include "dimensions.h" 29 include "paramet.h" 30 include "comvert.h" 31 include "comgeom.h" 32 include "logic.h" 33 include "ener.h" 33 34 34 35 c Arguments: -
LMDZ5/trunk/libf/dyn3d/advtrac.F90
r2286 r2597 11 11 USE infotrac, ONLY: nqtot, iadv,nqperes,ok_iso_verif 12 12 USE control_mod, ONLY: iapp_tracvl, day_step 13 13 USE comconst_mod, ONLY: dtvr 14 14 15 15 IMPLICIT NONE … … 17 17 include "dimensions.h" 18 18 include "paramet.h" 19 include "comconst.h"20 19 include "comvert.h" 21 20 include "comdissip.h" -
LMDZ5/trunk/libf/dyn3d/bilan_dyn.F
r1907 r2597 13 13 USE IOIPSL 14 14 #endif 15 USE comconst_mod, ONLY: pi, cpp 15 16 16 17 IMPLICIT NONE 17 18 18 #include "dimensions.h" 19 #include "paramet.h" 20 #include "comconst.h" 21 #include "comvert.h" 22 #include "comgeom2.h" 23 #include "temps.h" 24 #include "iniprint.h" 19 include "dimensions.h" 20 include "paramet.h" 21 include "comvert.h" 22 include "comgeom2.h" 23 include "temps.h" 24 include "iniprint.h" 25 25 26 26 c==================================================================== -
LMDZ5/trunk/libf/dyn3d/caladvtrac.F
r2286 r2597 10 10 USE infotrac, ONLY : nqtot 11 11 USE control_mod, ONLY : iapp_tracvl,planet_type 12 USE comconst_mod, ONLY: dtvr 12 13 13 14 IMPLICIT NONE … … 23 24 24 25 25 #include "dimensions.h" 26 #include "paramet.h" 27 #include "comconst.h" 26 include "dimensions.h" 27 include "paramet.h" 28 28 29 29 c Arguments: -
LMDZ5/trunk/libf/dyn3d/caldyn.F
r1987 r2597 24 24 ! ---------------- 25 25 26 #include "dimensions.h" 27 #include "paramet.h" 28 #include "comconst.h" 29 #include "comvert.h" 30 #include "comgeom.h" 26 include "dimensions.h" 27 include "paramet.h" 28 include "comvert.h" 29 include "comgeom.h" 31 30 32 31 ! Arguments: -
LMDZ5/trunk/libf/dyn3d/conf_gcm.F90
r2442 r2597 13 13 USE infotrac, ONLY : type_trac 14 14 use assert_m, only: assert 15 USE comconst_mod, ONLY: dissip_deltaz, dissip_factz, dissip_zref, & 16 iflag_top_bound, mode_top_bound, tau_top_bound, & 17 ngroup 15 18 16 19 IMPLICIT NONE … … 35 38 include "comdissnew.h" 36 39 include "temps.h" 37 include "comconst.h"38 40 include "iniprint.h" 39 41 -
LMDZ5/trunk/libf/dyn3d/dissip.F
r1987 r2597 4 4 SUBROUTINE dissip( vcov,ucov,teta,p, dv,du,dh ) 5 5 c 6 USE comconst_mod, ONLY: dtdiss 7 6 8 IMPLICIT NONE 7 9 … … 25 27 c ------------- 26 28 27 #include "dimensions.h" 28 #include "paramet.h" 29 #include "comconst.h" 30 #include "comgeom.h" 31 #include "comdissnew.h" 32 #include "comdissipn.h" 29 include "dimensions.h" 30 include "paramet.h" 31 include "comgeom.h" 32 include "comdissnew.h" 33 include "comdissipn.h" 33 34 34 35 c Arguments: -
LMDZ5/trunk/libf/dyn3d/dynetat0.f90
r2299 r2597 11 11 USE control_mod, ONLY: planet_type 12 12 USE assert_eq_m, ONLY: assert_eq 13 USE comconst_mod, ONLY: cpp, daysec, dtvr, g, im, jm, kappa, lllm, omeg, rad 13 14 IMPLICIT NONE 14 15 include "dimensions.h" 15 16 include "paramet.h" 16 17 include "temps.h" 17 include "comconst.h"18 18 include "comvert.h" 19 19 include "comgeom2.h" -
LMDZ5/trunk/libf/dyn3d/dynredem.F90
r2299 r2597 11 11 NF90_CLOSE, NF90_PUT_ATT, NF90_UNLIMITED, NF90_CLOBBER 12 12 USE dynredem_mod, ONLY: cre_var, put_var1, put_var2, err, modname, fil 13 USE comconst_mod, ONLY: cpp, daysec, dtvr, g, kappa, omeg, rad 13 14 IMPLICIT NONE 14 15 include "dimensions.h" 15 16 include "paramet.h" 16 include "comconst.h"17 17 include "comvert.h" 18 18 include "comgeom2.h" -
LMDZ5/trunk/libf/dyn3d/fluxstokenc.F
r2239 r2597 16 16 IMPLICIT NONE 17 17 c 18 #include "dimensions.h" 19 #include "paramet.h" 20 #include "comconst.h" 21 #include "comvert.h" 22 #include "comgeom.h" 23 #include "tracstoke.h" 24 #include "temps.h" 25 #include "iniprint.h" 18 include "dimensions.h" 19 include "paramet.h" 20 include "comvert.h" 21 include "comgeom.h" 22 include "tracstoke.h" 23 include "temps.h" 24 include "iniprint.h" 26 25 27 26 REAL time_step,t_wrt, t_ops -
LMDZ5/trunk/libf/dyn3d/friction.F
r1907 r2597 12 12 USE ioipsl_getincom 13 13 #endif 14 14 USE comconst_mod, ONLY: pi 15 15 IMPLICIT NONE 16 16 … … 27 27 !======================================================================= 28 28 29 #include "dimensions.h" 30 #include "paramet.h" 31 #include "comgeom2.h" 32 #include "comconst.h" 33 #include "iniprint.h" 34 #include "academic.h" 29 include "dimensions.h" 30 include "paramet.h" 31 include "comgeom2.h" 32 include "iniprint.h" 33 include "academic.h" 35 34 36 35 ! arguments: -
LMDZ5/trunk/libf/dyn3d/gcm.F90
r2438 r2597 23 23 USE control_mod 24 24 USE mod_const_mpi, ONLY: COMM_LMDZ 25 25 USE comconst_mod, ONLY: cpp, daysec, dtphys, dtvr, g, r, rad 26 26 27 27 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! … … 68 68 include "dimensions.h" 69 69 include "paramet.h" 70 include "comconst.h"71 70 include "comdissnew.h" 72 71 include "comvert.h" … … 74 73 include "logic.h" 75 74 include "temps.h" 76 !!!!!!!!!!!include "control.h"77 75 include "ener.h" 78 76 include "description.h" … … 89 87 REAL, ALLOCATABLE, DIMENSION(:,:,:):: q! champs advectes 90 88 REAL ps(ip1jmp1) ! pression au sol 91 REAL p (ip1jmp1,llmp1 ) ! pression aux interfac.des couches89 ! REAL p (ip1jmp1,llmp1 ) ! pression aux interfac.des couches 92 90 REAL masse(ip1jmp1,llm) ! masse d'air 93 91 REAL phis(ip1jmp1) ! geopotentiel au sol 94 REAL phi(ip1jmp1,llm) ! geopotentiel95 REAL w(ip1jmp1,llm) ! vitesse verticale92 ! REAL phi(ip1jmp1,llm) ! geopotentiel 93 ! REAL w(ip1jmp1,llm) ! vitesse verticale 96 94 97 95 ! variables dynamiques intermediaire pour le transport … … 103 101 104 102 LOGICAL lafin 105 INTEGER ij,iq,l,i,j106 103 107 104 108 105 real time_step, t_wrt, t_ops 109 110 LOGICAL first111 106 112 107 ! LOGICAL call_iniphys … … 118 113 ! tansformation d'energie cinetique en energie thermique 119 114 ! cree par la dissipation 120 REAL dhecdt(ip1jmp1,llm)115 ! REAL dhecdt(ip1jmp1,llm) 121 116 ! REAL vcont(ip1jm,llm),ucont(ip1jmp1,llm) 122 117 ! REAL d_h_vcol, d_qt, d_qw, d_ql, d_ec 123 CHARACTER (len=15) :: ztit118 ! CHARACTER (len=15) :: ztit 124 119 !-jld 125 120 -
LMDZ5/trunk/libf/dyn3d/groupe.F
r2442 r2597 3 3 ! 4 4 subroutine groupe(pext,pbaru,pbarv,pbarum,pbarvm,wm) 5 6 use comconst_mod, only: ngroup 7 5 8 implicit none 6 9 … … 16 19 c pas besoin de w en entree. 17 20 18 #include "dimensions.h" 19 #include "paramet.h" 20 #include "comconst.h" 21 #include "comgeom2.h" 22 #include "comvert.h" 21 include "dimensions.h" 22 include "paramet.h" 23 include "comgeom2.h" 24 include "comvert.h" 23 25 24 26 ! integer ngroup -
LMDZ5/trunk/libf/dyn3d/groupeun.F
r2442 r2597 3 3 ! 4 4 SUBROUTINE groupeun(jjmax,llmax,q) 5 6 USE comconst_mod, ONLY: ngroup 7 5 8 IMPLICIT NONE 6 9 7 #include "dimensions.h" 8 #include "paramet.h" 9 #include "comconst.h" 10 #include "comgeom2.h" 10 include "dimensions.h" 11 include "paramet.h" 12 include "comgeom2.h" 11 13 12 14 INTEGER jjmax,llmax … … 135 137 136 138 SUBROUTINE INIT_GROUPEUN(airen_tab, aires_tab) 139 140 USE comconst_mod, ONLY: ngroup 141 137 142 IMPLICIT NONE 138 143 139 #include "dimensions.h" 140 #include "paramet.h" 141 #include "comconst.h" 142 #include "comgeom2.h" 144 include "dimensions.h" 145 include "paramet.h" 146 include "comgeom2.h" 143 147 144 148 ! INTEGER ngroup -
LMDZ5/trunk/libf/dyn3d/guide_mod.F90
r2263 r2597 314 314 SUBROUTINE guide_main(itau,ucov,vcov,teta,q,masse,ps) 315 315 316 USE control_mod 316 USE control_mod, ONLY: day_step, iperiod 317 USE comconst_mod, ONLY: dtvr, daysec 317 318 318 319 IMPLICIT NONE … … 320 321 INCLUDE "dimensions.h" 321 322 INCLUDE "paramet.h" 322 INCLUDE "comconst.h"323 323 INCLUDE "comvert.h" 324 324 … … 542 542 SUBROUTINE guide_zonave(typ,hsize,vsize,field) 543 543 544 USE comconst_mod, ONLY: pi 545 544 546 IMPLICIT NONE 545 547 … … 547 549 INCLUDE "paramet.h" 548 550 INCLUDE "comgeom.h" 549 INCLUDE "comconst.h"550 551 551 552 ! input/output variables … … 607 608 use exner_hyb_m, only: exner_hyb 608 609 use exner_milieu_m, only: exner_milieu 610 use comconst_mod, only: kappa, cpp 609 611 IMPLICIT NONE 610 612 … … 613 615 include "comvert.h" 614 616 include "comgeom2.h" 615 include "comconst.h"616 617 617 618 REAL, DIMENSION (iip1,jjp1), INTENT(IN) :: psi ! Psol gcm … … 777 778 do j=1,jjp1 778 779 IF (guide_teta) THEN 779 780 781 782 783 780 do i=1,iim 781 ij=(j-1)*iip1+i 782 tgui1(ij,l)=zu1(i,j,l) 783 tgui2(ij,l)=zu2(i,j,l) 784 enddo 784 785 ELSE 785 786 787 788 789 786 do i=1,iim 787 ij=(j-1)*iip1+i 788 tgui1(ij,l)=zu1(i,j,l)*cpp/pk(i,j,l) 789 tgui2(ij,l)=zu2(i,j,l)*cpp/pk(i,j,l) 790 enddo 790 791 ENDIF 791 792 tgui1(j*iip1,l)=tgui1((j-1)*iip1+1,l) … … 855 856 ! Calcul des constantes de rappel alpha (=1/tau) 856 857 858 use comconst_mod, only: pi 859 857 860 implicit none 858 861 859 862 include "dimensions.h" 860 863 include "paramet.h" 861 include "comconst.h"862 864 include "comgeom2.h" 863 865 include "serre.h" … … 1516 1518 SUBROUTINE guide_out(varname,hsize,vsize,field) 1517 1519 1520 USE comconst_mod, ONLY: pi 1521 1518 1522 IMPLICIT NONE 1519 1523 … … 1522 1526 INCLUDE "netcdf.inc" 1523 1527 INCLUDE "comgeom2.h" 1524 INCLUDE "comconst.h"1525 1528 INCLUDE "comvert.h" 1526 1529 -
LMDZ5/trunk/libf/dyn3d/iniacademic.F90
r2270 r2597 16 16 use exner_hyb_m, only: exner_hyb 17 17 use exner_milieu_m, only: exner_milieu 18 USE comconst_mod, ONLY: cpp, kappa, g, daysec, dtvr, pi, im, jm 18 19 19 20 ! Author: Frederic Hourdin original: 15/01/93 … … 29 30 include "paramet.h" 30 31 include "comvert.h" 31 include "comconst.h"32 32 include "comgeom.h" 33 33 include "academic.h" -
LMDZ5/trunk/libf/dyn3d/integrd.F
r2094 r2597 8 8 9 9 use control_mod, only : planet_type 10 use comconst_mod, only: pi 10 11 11 12 IMPLICIT NONE … … 27 28 c ------------- 28 29 29 #include "dimensions.h" 30 #include "paramet.h" 31 #include "comconst.h" 32 #include "comgeom.h" 33 #include "comvert.h" 34 #include "logic.h" 35 #include "temps.h" 36 #include "serre.h" 37 #include "iniprint.h" 30 include "dimensions.h" 31 include "paramet.h" 32 include "comgeom.h" 33 include "comvert.h" 34 include "logic.h" 35 include "temps.h" 36 include "serre.h" 37 include "iniprint.h" 38 38 39 39 c Arguments: -
LMDZ5/trunk/libf/dyn3d/leapfrog.F
r2475 r2597 20 20 use exner_hyb_m, only: exner_hyb 21 21 use exner_milieu_m, only: exner_milieu 22 USE comconst_mod, ONLY: cpp, dtphys, dtvr, pi, ihf 22 23 23 24 IMPLICIT NONE … … 54 55 c ------------- 55 56 56 #include "dimensions.h" 57 #include "paramet.h" 58 #include "comconst.h" 59 #include "comdissnew.h" 60 #include "comvert.h" 61 #include "comgeom.h" 62 #include "logic.h" 63 #include "temps.h" 64 #include "ener.h" 65 #include "description.h" 66 #include "serre.h" 67 !#include "com_io_dyn.h" 68 #include "iniprint.h" 69 #include "academic.h" 57 include "dimensions.h" 58 include "paramet.h" 59 include "comdissnew.h" 60 include "comvert.h" 61 include "comgeom.h" 62 include "logic.h" 63 include "temps.h" 64 include "ener.h" 65 include "description.h" 66 include "serre.h" 67 include "iniprint.h" 68 include "academic.h" 70 69 71 70 REAL,INTENT(IN) :: time_0 ! not used -
LMDZ5/trunk/libf/dyn3d/sw_case_williamson91_6.F
r1907 r2597 26 26 c 27 27 c======================================================================= 28 USE comconst_mod, ONLY: cpp, omeg, rad 29 28 30 IMPLICIT NONE 29 31 c----------------------------------------------------------------------- … … 31 33 c --------------- 32 34 33 #include "dimensions.h" 34 #include "paramet.h" 35 #include "comvert.h" 36 #include "comconst.h" 37 #include "comgeom.h" 38 #include "iniprint.h" 35 include "dimensions.h" 36 include "paramet.h" 37 include "comvert.h" 38 include "comgeom.h" 39 include "iniprint.h" 39 40 40 41 c Arguments: -
LMDZ5/trunk/libf/dyn3d/top_bound.F
r1907 r2597 3 3 ! 4 4 SUBROUTINE top_bound(vcov,ucov,teta,masse,dt) 5 6 USE comconst_mod, ONLY: iflag_top_bound, mode_top_bound, 7 & tau_top_bound 8 5 9 IMPLICIT NONE 6 10 c 7 #include "dimensions.h" 8 #include "paramet.h" 9 #include "comconst.h" 10 #include "comvert.h" 11 #include "comgeom2.h" 11 include "dimensions.h" 12 include "paramet.h" 13 include "comvert.h" 14 include "comgeom2.h" 12 15 13 16 … … 39 42 ! NB: top_bound sponge is only called from leapfrog if ok_strato=.true. 40 43 41 ! sponge parameters: (loaded/set in conf_gcm.F ; stored in comconst .h)44 ! sponge parameters: (loaded/set in conf_gcm.F ; stored in comconst_mod) 42 45 ! iflag_top_bound=0 for no sponge 43 46 ! iflag_top_bound=1 for sponge over 4 topmost layers -
LMDZ5/trunk/libf/dyn3d/vlsplt.F
r2286 r2597 21 21 IMPLICIT NONE 22 22 c 23 #include "dimensions.h" 24 #include "paramet.h" 25 #include "logic.h" 26 #include "comvert.h" 27 #include "comconst.h" 23 include "dimensions.h" 24 include "paramet.h" 25 include "logic.h" 26 include "comvert.h" 28 27 29 28 c … … 159 158 include "logic.h" 160 159 include "comvert.h" 161 include "comconst.h"162 160 include "iniprint.h" 163 161 c … … 528 526 c 529 527 c -------------------------------------------------------------------- 528 USE comconst_mod, ONLY: pi 530 529 IMPLICIT NONE 531 530 c 532 #include "dimensions.h" 533 #include "paramet.h" 534 #include "logic.h" 535 #include "comvert.h" 536 #include "comconst.h" 537 #include "comgeom.h" 531 include "dimensions.h" 532 include "paramet.h" 533 include "logic.h" 534 include "comvert.h" 535 include "comgeom.h" 538 536 c 539 537 c … … 893 891 IMPLICIT NONE 894 892 c 895 #include "dimensions.h" 896 #include "paramet.h" 897 #include "logic.h" 898 #include "comvert.h" 899 #include "comconst.h" 893 include "dimensions.h" 894 include "paramet.h" 895 include "logic.h" 896 include "comvert.h" 900 897 c 901 898 c -
LMDZ5/trunk/libf/dyn3d/vlspltqs.F
r2286 r2597 23 23 c pk exner au milieu des couches necessaire pour calculer Qsat 24 24 c -------------------------------------------------------------------- 25 26 USE comconst_mod, ONLY: cpp 27 25 28 IMPLICIT NONE 26 29 c 27 #include "dimensions.h" 28 #include "paramet.h" 29 #include "logic.h" 30 #include "comvert.h" 31 #include "comconst.h" 30 include "dimensions.h" 31 include "paramet.h" 32 include "logic.h" 33 include "comvert.h" 32 34 33 35 c … … 192 194 IMPLICIT NONE 193 195 c 194 #include "dimensions.h" 195 #include "paramet.h" 196 #include "logic.h" 197 #include "comvert.h" 198 #include "comconst.h" 196 include "dimensions.h" 197 include "paramet.h" 198 include "logic.h" 199 include "comvert.h" 199 200 c 200 201 c … … 559 560 c 560 561 c -------------------------------------------------------------------- 562 563 USE comconst_mod, ONLY: pi 564 561 565 IMPLICIT NONE 562 566 c 563 #include "dimensions.h" 564 #include "paramet.h" 565 #include "logic.h" 566 #include "comvert.h" 567 #include "comconst.h" 568 #include "comgeom.h" 567 include "dimensions.h" 568 include "paramet.h" 569 include "logic.h" 570 include "comvert.h" 571 include "comgeom.h" 569 572 c 570 573 c
Note: See TracChangeset
for help on using the changeset viewer.