Changeset 2598
- Timestamp:
- Jul 22, 2016, 11:28:39 AM (8 years ago)
- Location:
- LMDZ5/trunk/libf
- Files:
-
- 1 added
- 1 deleted
- 57 edited
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dyn3d/addfi.F
r2597 r2598 49 49 include "paramet.h" 50 50 include "comgeom.h" 51 include "serre.h"52 51 c 53 52 c Arguments : -
LMDZ5/trunk/libf/dyn3d/conf_gcm.F90
r2597 r2598 16 16 iflag_top_bound, mode_top_bound, tau_top_bound, & 17 17 ngroup 18 USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy, & 19 alphax,alphay,taux,tauy 18 20 19 21 IMPLICIT NONE … … 35 37 include "paramet.h" 36 38 include "logic.h" 37 include "serre.h"38 39 include "comdissnew.h" 39 40 include "temps.h" … … 43 44 ! ------ 44 45 45 CHARACTER ch1*72,ch2*72,ch3*72,ch4*1246 46 REAL clonn,clatt,grossismxx,grossismyy 47 47 REAL dzoomxx,dzoomyy, tauxx,tauyy 48 48 LOGICAL fxyhypbb, ysinuss 49 INTEGER i50 49 51 50 ! ------------------------------------------------------------------- -
LMDZ5/trunk/libf/dyn3d/dynetat0.f90
r2597 r2598 12 12 USE assert_eq_m, ONLY: assert_eq 13 13 USE comconst_mod, ONLY: cpp, daysec, dtvr, g, im, jm, kappa, lllm, omeg, rad 14 USE serre_mod, ONLY: clon, clat, grossismx, grossismy 14 15 IMPLICIT NONE 15 16 include "dimensions.h" … … 20 21 include "ener.h" 21 22 include "description.h" 22 include "serre.h"23 23 include "logic.h" 24 24 include "iniprint.h" -
LMDZ5/trunk/libf/dyn3d/dynredem.F90
r2597 r2598 12 12 USE dynredem_mod, ONLY: cre_var, put_var1, put_var2, err, modname, fil 13 13 USE comconst_mod, ONLY: cpp, daysec, dtvr, g, kappa, omeg, rad 14 USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy, & 15 taux,tauy 14 16 IMPLICIT NONE 15 17 include "dimensions.h" … … 21 23 include "logic.h" 22 24 include "description.h" 23 include "serre.h"24 25 include "iniprint.h" 25 26 !=============================================================================== -
LMDZ5/trunk/libf/dyn3d/gcm.F90
r2597 r2598 75 75 include "ener.h" 76 76 include "description.h" 77 include "serre.h"78 !include "com_io_dyn.h"79 77 include "iniprint.h" 80 78 include "tracstoke.h" -
LMDZ5/trunk/libf/dyn3d/guide_mod.F90
r2597 r2598 63 63 SUBROUTINE guide_init 64 64 65 USE control_mod 65 USE control_mod, ONLY: day_step 66 USE serre_mod, ONLY: grossismx 66 67 67 68 IMPLICIT NONE … … 70 71 INCLUDE "paramet.h" 71 72 INCLUDE "netcdf.inc" 72 73 ! For grossismx:74 include "serre.h"75 73 76 74 INTEGER :: error,ncidpl,rid,rcod … … 857 855 858 856 use comconst_mod, only: pi 857 use serre_mod, only: clon, clat, grossismx, grossismy 859 858 860 859 implicit none … … 863 862 include "paramet.h" 864 863 include "comgeom2.h" 865 include "serre.h"866 864 867 865 ! input arguments : -
LMDZ5/trunk/libf/dyn3d/integrd.F
r2597 r2598 34 34 include "logic.h" 35 35 include "temps.h" 36 include "serre.h"37 36 include "iniprint.h" 38 37 -
LMDZ5/trunk/libf/dyn3d/leapfrog.F
r2597 r2598 64 64 include "ener.h" 65 65 include "description.h" 66 include "serre.h"67 66 include "iniprint.h" 68 67 include "academic.h" -
LMDZ5/trunk/libf/dyn3d_common/coordij.F
r2597 r2598 18 18 INTEGER i,j 19 19 20 #include "dimensions.h" 21 #include "paramet.h" 22 #include "comgeom.h" 23 #include "serre.h" 20 include "dimensions.h" 21 include "paramet.h" 22 include "comgeom.h" 24 23 25 24 real zlon,zlat -
LMDZ5/trunk/libf/dyn3d_common/exner_hyb_m.F90
r2597 r2598 40 40 include "comgeom.h" 41 41 include "comvert.h" 42 include "serre.h"43 42 44 43 INTEGER ngrid -
LMDZ5/trunk/libf/dyn3d_common/exner_milieu_m.F90
r2597 r2598 37 37 include "comgeom.h" 38 38 include "comvert.h" 39 include "serre.h"40 39 41 40 INTEGER ngrid -
LMDZ5/trunk/libf/dyn3d_common/fxhyp_m.F90
r2228 r2598 22 22 use nrtype, only: pi, pi_d, twopi, twopi_d, k8 23 23 use principal_cshift_m, only: principal_cshift 24 use serre_mod, only: clon, grossismx, dzoomx, taux 24 25 25 26 include "dimensions.h" 26 27 ! for iim 27 28 include "serre.h"29 ! for clon, grossismx, dzoomx, taux30 28 31 29 REAL, intent(out):: xprimm025(:), rlonv(:), xprimv(:) ! (iim + 1) -
LMDZ5/trunk/libf/dyn3d_common/fxy.F
r2597 r2598 7 7 8 8 USE comconst_mod, ONLY: pi 9 USE serre_mod, ONLY: pxo,pyo,alphax,alphay,transx,transy 10 9 11 IMPLICIT NONE 10 12 … … 15 17 c 16 18 c 17 #include "dimensions.h" 18 #include "paramet.h" 19 #include "serre.h" 19 include "dimensions.h" 20 include "paramet.h" 20 21 21 22 INTEGER i,j -
LMDZ5/trunk/libf/dyn3d_common/fyhyp_m.F90
r2228 r2598 18 18 use coefpoly_m, only: coefpoly 19 19 use nrtype, only: k8 20 use serre_mod, only: clat, grossismy, dzoomy, tauy 20 21 21 22 include "dimensions.h" 22 23 ! for jjm 23 24 include "serre.h"25 ! for clat, grossismy, dzoomy, tauy26 24 27 25 REAL, intent(out):: rlatu(jjm + 1), yyprimu(jjm + 1) -
LMDZ5/trunk/libf/dyn3d_common/grilles_gcm_netcdf_sub.F90
r2597 r2598 17 17 INCLUDE "comvert.h" 18 18 INCLUDE "netcdf.inc" 19 INCLUDE "serre.h"20 19 21 20 -
LMDZ5/trunk/libf/dyn3d_common/inigeom.F
r2597 r2598 19 19 use fyhyp_m, only: fyhyp 20 20 USE comconst_mod, ONLY: pi, g, omeg, rad 21 USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy, 22 & alphax,alphay,taux,tauy,transx,transy,pxo,pyo 21 23 IMPLICIT NONE 22 24 c … … 24 26 include "paramet.h" 25 27 include "comgeom2.h" 26 include "serre.h"27 28 include "logic.h" 28 29 include "comdissnew.h" -
LMDZ5/trunk/libf/dyn3d_common/initdynav.F90
r2597 r2598 41 41 include "logic.h" 42 42 include "description.h" 43 include "serre.h"44 43 include "iniprint.h" 45 44 -
LMDZ5/trunk/libf/dyn3d_common/initfluxsto.F
r2597 r2598 47 47 include "logic.h" 48 48 include "description.h" 49 include "serre.h"50 49 include "iniprint.h" 51 50 -
LMDZ5/trunk/libf/dyn3d_common/inithist.F
r2597 r2598 46 46 include "logic.h" 47 47 include "description.h" 48 include "serre.h"49 48 include "iniprint.h" 50 49 -
LMDZ5/trunk/libf/dyn3d_common/invert_zoom_x_m.F90
r2228 r2598 11 11 use coefpoly_m, only: coefpoly 12 12 use nrtype, only: pi, pi_d, twopi_d, k8 13 use serre_mod, only: clon 13 14 14 15 include "dimensions.h" 15 16 ! for iim 16 17 include "serre.h"18 ! for clon19 17 20 18 REAL(K8), intent(in):: Xf(0:), xtild(0:), Xprimt(0:) ! (0:2 * nmax) -
LMDZ5/trunk/libf/dyn3d_common/principal_cshift_m.F90
r2218 r2598 12 12 13 13 use nrtype, only: twopi 14 use serre_mod, only: clon 14 15 15 16 include "dimensions.h" 16 17 ! for iim 17 18 include "serre.h"19 ! for clon20 18 21 19 integer, intent(in):: is2 -
LMDZ5/trunk/libf/dyn3d_common/serre_mod.F90
r2597 r2598 1 1 ! 2 ! $ Header$2 ! $Id$ 3 3 ! 4 !c 5 !c 6 !c..include serre.h 7 !c 8 9 &grossismx, grossismy, dzoomx, dzoomy,taux,tauy10 COMMON/serre/clon,clat,transx,transy,alphax,alphay,pxo,pyo , & 11 & grossismx, grossismy, dzoomx, dzoomy,taux,tauy 4 MODULE serre_mod 5 6 IMPLICIT NONE 7 8 REAL clon,clat,transx,transy,alphax,alphay,pxo,pyo, & 9 grossismx, grossismy, dzoomx, dzoomy,taux,tauy 10 11 END MODULE serre_mod -
LMDZ5/trunk/libf/dyn3d_common/writedynav.F90
r2597 r2598 38 38 include "logic.h" 39 39 include "description.h" 40 include "serre.h"41 40 include "iniprint.h" 42 41 -
LMDZ5/trunk/libf/dyn3d_common/writehist.F
r2597 r2598 41 41 include "logic.h" 42 42 include "description.h" 43 include "serre.h"44 43 include "iniprint.h" 45 44 -
LMDZ5/trunk/libf/dyn3dmem/addfi_loc.F
r2597 r2598 49 49 include "paramet.h" 50 50 include "comgeom.h" 51 include "serre.h"52 51 c 53 52 c Arguments : -
LMDZ5/trunk/libf/dyn3dmem/conf_gcm.F90
r2597 r2598 20 20 iflag_top_bound, mode_top_bound, tau_top_bound, & 21 21 ngroup 22 USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy, & 23 alphax,alphay,taux,tauy 22 24 23 25 IMPLICIT NONE … … 39 41 include "paramet.h" 40 42 include "logic.h" 41 include "serre.h"42 43 include "comdissnew.h" 43 44 include "temps.h" -
LMDZ5/trunk/libf/dyn3dmem/dynetat0_loc.f90
r2597 r2598 14 14 USE comconst_mod, ONLY: cpp, daysec, dtvr, g, im, jm, kappa, lllm, & 15 15 omeg, rad 16 USE serre_mod, ONLY: clon, clat, grossismx, grossismy 17 16 18 IMPLICIT NONE 17 19 include "dimensions.h" … … 22 24 include "ener.h" 23 25 include "description.h" 24 include "serre.h"25 26 include "logic.h" 26 27 include "iniprint.h" -
LMDZ5/trunk/libf/dyn3dmem/dynredem_loc.F90
r2597 r2598 14 14 USE dynredem_mod, ONLY: cre_var, put_var, err, modname, fil 15 15 USE comconst_mod, ONLY: cpp, daysec, dtvr, g, kappa, omeg, rad 16 USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy, & 17 taux,tauy 18 16 19 IMPLICIT NONE 17 20 include "dimensions.h" … … 23 26 include "logic.h" 24 27 include "description.h" 25 include "serre.h"26 28 include "iniprint.h" 27 29 !=============================================================================== -
LMDZ5/trunk/libf/dyn3dmem/exner_hyb_loc_m.F90
r2597 r2598 42 42 include "comgeom.h" 43 43 include "comvert.h" 44 include "serre.h"45 44 46 45 INTEGER ngrid -
LMDZ5/trunk/libf/dyn3dmem/exner_milieu_loc_m.F90
r2597 r2598 38 38 include "comgeom.h" 39 39 include "comvert.h" 40 include "serre.h"41 40 42 41 INTEGER ngrid -
LMDZ5/trunk/libf/dyn3dmem/gcm.F90
r2597 r2598 62 62 include "ener.h" 63 63 include "description.h" 64 include "serre.h"65 !include "com_io_dyn.h"66 64 include "iniprint.h" 67 65 include "tracstoke.h" -
LMDZ5/trunk/libf/dyn3dmem/guide_loc_mod.F90
r2597 r2598 69 69 SUBROUTINE guide_init 70 70 71 USE control_mod 71 USE control_mod, ONLY: day_step 72 USE serre_mod, ONLY: grossismx 72 73 73 74 IMPLICIT NONE … … 76 77 INCLUDE "paramet.h" 77 78 INCLUDE "netcdf.inc" 78 79 ! For grossismx:80 include "serre.h"81 79 82 80 INTEGER :: error,ncidpl,rid,rcod … … 1373 1371 1374 1372 use comconst_mod, only: pi 1373 use serre_mod, only: clat, clon, grossismx, grossismy 1375 1374 1376 1375 implicit none … … 1379 1378 include "paramet.h" 1380 1379 include "comgeom2.h" 1381 include "serre.h"1382 1380 1383 1381 ! input arguments : -
LMDZ5/trunk/libf/dyn3dmem/initdynav_loc.F
r2597 r2598 50 50 include "logic.h" 51 51 include "description.h" 52 include "serre.h"53 52 include "iniprint.h" 54 53 -
LMDZ5/trunk/libf/dyn3dmem/initfluxsto_p.F
r2597 r2598 52 52 include "logic.h" 53 53 include "description.h" 54 include "serre.h"55 54 include "iniprint.h" 56 55 -
LMDZ5/trunk/libf/dyn3dmem/inithist_loc.F
r2597 r2598 49 49 include "logic.h" 50 50 include "description.h" 51 include "serre.h"52 51 include "iniprint.h" 53 52 -
LMDZ5/trunk/libf/dyn3dmem/integrd_loc.F
r2597 r2598 37 37 include "logic.h" 38 38 include "temps.h" 39 include "serre.h"40 39 include "iniprint.h" 41 40 -
LMDZ5/trunk/libf/dyn3dmem/leapfrog_loc.F
r2597 r2598 75 75 include "ener.h" 76 76 include "description.h" 77 include "serre.h"78 77 include "iniprint.h" 79 78 include "academic.h" -
LMDZ5/trunk/libf/dyn3dmem/writedynav_loc.F
r2597 r2598 50 50 include "logic.h" 51 51 include "description.h" 52 include "serre.h"53 52 include "iniprint.h" 54 53 -
LMDZ5/trunk/libf/dyn3dmem/writehist_loc.F
r2597 r2598 50 50 include "logic.h" 51 51 include "description.h" 52 include "serre.h"53 52 include "iniprint.h" 54 53 -
LMDZ5/trunk/libf/dyn3dpar/addfi_p.F
r2597 r2598 49 49 #include "paramet.h" 50 50 #include "comgeom.h" 51 #include "serre.h"52 51 c 53 52 c Arguments : -
LMDZ5/trunk/libf/dyn3dpar/conf_gcm.F90
r2597 r2598 19 19 iflag_top_bound, mode_top_bound, tau_top_bound, & 20 20 ngroup 21 USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy, & 22 alphax,alphay,taux,tauy 21 23 22 24 IMPLICIT NONE … … 38 40 include "paramet.h" 39 41 include "logic.h" 40 include "serre.h"41 42 include "comdissnew.h" 42 43 include "temps.h" -
LMDZ5/trunk/libf/dyn3dpar/dynetat0.F
r2597 r2598 11 11 USE comconst_mod, ONLY: cpp, daysec, dtvr, g, im, jm, kappa, 12 12 & lllm, omeg, rad 13 USE serre_mod, ONLY: clon,clat,grossismx,grossismy 13 14 14 15 IMPLICIT NONE … … 37 38 #include "netcdf.inc" 38 39 #include "description.h" 39 #include "serre.h"40 40 #include "logic.h" 41 41 #include "iniprint.h" -
LMDZ5/trunk/libf/dyn3dpar/dynredem.F
r2597 r2598 10 10 use netcdf95, only: NF95_PUT_VAR 11 11 USE comconst_mod, ONLY: cpp, daysec, dtvr, g, kappa, omeg, rad 12 USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy, 13 & taux,tauy 12 14 13 15 IMPLICIT NONE … … 26 28 #include "netcdf.inc" 27 29 #include "description.h" 28 #include "serre.h"29 30 #include "iniprint.h" 30 31 -
LMDZ5/trunk/libf/dyn3dpar/dynredem_p.F
r2597 r2598 11 11 use netcdf95, only: NF95_PUT_VAR 12 12 USE comconst_mod, ONLY: cpp, daysec, dtvr, g, kappa, omeg, rad 13 USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy, 14 & taux,tauy 13 15 14 16 IMPLICIT NONE … … 27 29 #include "netcdf.inc" 28 30 #include "description.h" 29 #include "serre.h"30 31 31 32 c Arguments: -
LMDZ5/trunk/libf/dyn3dpar/exner_hyb_p_m.F90
r2597 r2598 39 39 include "comgeom.h" 40 40 include "comvert.h" 41 include "serre.h"42 41 43 42 INTEGER ngrid -
LMDZ5/trunk/libf/dyn3dpar/exner_milieu_p_m.F90
r2597 r2598 36 36 include "comgeom.h" 37 37 include "comvert.h" 38 include "serre.h"39 38 40 39 INTEGER ngrid -
LMDZ5/trunk/libf/dyn3dpar/gcm.F
r2597 r2598 74 74 #include "ener.h" 75 75 #include "description.h" 76 #include "serre.h"77 76 !#include "com_io_dyn.h" 78 77 #include "iniprint.h" -
LMDZ5/trunk/libf/dyn3dpar/guide_p_mod.F90
r2597 r2598 68 68 SUBROUTINE guide_init 69 69 70 USE control_mod 70 USE control_mod, ONLY: day_step 71 USE serre_mod, ONLY: grossismx 71 72 72 73 IMPLICIT NONE … … 75 76 INCLUDE "paramet.h" 76 77 INCLUDE "netcdf.inc" 77 78 ! For grossismx:79 include "serre.h"80 78 81 79 INTEGER :: error,ncidpl,rid,rcod … … 1101 1099 1102 1100 use comconst_mod, only: pi 1101 use serre_mod, only: clat, clon, grossismx, grossismy 1103 1102 1104 1103 implicit none … … 1107 1106 include "paramet.h" 1108 1107 include "comgeom2.h" 1109 include "serre.h"1110 1108 1111 1109 ! input arguments : -
LMDZ5/trunk/libf/dyn3dpar/initdynav_p.F
r2597 r2598 50 50 #include "logic.h" 51 51 #include "description.h" 52 #include "serre.h"53 52 #include "iniprint.h" 54 53 -
LMDZ5/trunk/libf/dyn3dpar/initfluxsto_p.F
r2597 r2598 52 52 #include "logic.h" 53 53 #include "description.h" 54 #include "serre.h"55 54 #include "iniprint.h" 56 55 -
LMDZ5/trunk/libf/dyn3dpar/inithist_p.F
r2597 r2598 52 52 #include "logic.h" 53 53 #include "description.h" 54 #include "serre.h"55 54 #include "iniprint.h" 56 55 -
LMDZ5/trunk/libf/dyn3dpar/integrd_p.F
r2597 r2598 32 32 #include "logic.h" 33 33 #include "temps.h" 34 #include "serre.h"35 34 #include "iniprint.h" 36 35 -
LMDZ5/trunk/libf/dyn3dpar/leapfrog_p.F
r2597 r2598 71 71 #include "ener.h" 72 72 #include "description.h" 73 #include "serre.h"74 73 !#include "com_io_dyn.h" 75 74 #include "iniprint.h" -
LMDZ5/trunk/libf/dyn3dpar/writedynav_p.F
r2597 r2598 49 49 #include "logic.h" 50 50 #include "description.h" 51 #include "serre.h"52 51 #include "iniprint.h" 53 52 -
LMDZ5/trunk/libf/dyn3dpar/writehist_p.F
r2597 r2598 49 49 #include "logic.h" 50 50 #include "description.h" 51 #include "serre.h"52 51 #include "iniprint.h" 53 52 -
LMDZ5/trunk/libf/dynphy_lonlat/phylmd/etat0dyn_netcdf.F90
r2597 r2598 49 49 include "temps.h" 50 50 include "comdissnew.h" 51 include "serre.h"52 51 REAL, SAVE :: deg2rad 53 52 INTEGER, SAVE :: iml_dyn, jml_dyn, llm_dyn, ttm_dyn, fid_dyn -
LMDZ5/trunk/libf/filtrez/filtreg_mod.F90
r1907 r2598 14 14 USE mod_filtre_fft_loc, ONLY : Init_filtre_fft_loc=>Init_filtre_fft ! 15 15 #endif 16 USE serre_mod, ONLY: alphax 16 17 ! ... H. Upadhyaya, O.Sharma ... 17 18 ! … … 22 23 ! Correction le 28/10/97 P. Le Van . 23 24 ! ------------------------------------------------------------------- 24 #include "dimensions.h"25 #include "paramet.h"25 include "dimensions.h" 26 include "paramet.h" 26 27 ! ------------------------------------------------------------------- 27 #include "comgeom.h" 28 #include "coefils.h" 29 #include "logic.h" 30 #include "serre.h" 28 include "comgeom.h" 29 include "coefils.h" 30 include "logic.h" 31 31 32 32 REAL dlonu(iim),dlatu(jjm) -
LMDZ5/trunk/libf/filtrez/inifgn.F
r1907 r2598 8 8 IMPLICIT NONE 9 9 c 10 #include "dimensions.h" 11 #include "paramet.h" 12 #include "comgeom.h" 13 #include "serre.h" 10 include "dimensions.h" 11 include "paramet.h" 12 include "comgeom.h" 14 13 15 14 c … … 20 19 INTEGER i,j,k,imm1,nrot 21 20 C 22 #include "coefils.h"21 include "coefils.h" 23 22 c 24 23 EXTERNAL SSUM, acc,eigen,jacobi
Note: See TracChangeset
for help on using the changeset viewer.