Changeset 4727 for LMDZ6/branches/LMDZ_ECRad/libf/filtrez
- Timestamp:
- Oct 19, 2023, 4:02:57 PM (12 months ago)
- Location:
- LMDZ6/branches/LMDZ_ECRad
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ_ECRad
- Property svn:mergeinfo changed
-
LMDZ6/branches/LMDZ_ECRad/libf/filtrez/eigen.F
r2197 r4727 4 4 SUBROUTINE eigen( e,d) 5 5 IMPLICIT NONE 6 #include"dimensions.h"6 INCLUDE "dimensions.h" 7 7 real :: e( iim,iim ), d( iim ) 8 8 real :: asm( iim ) -
LMDZ6/branches/LMDZ_ECRad/libf/filtrez/filtreg.F
r4482 r4727 46 46 c 47 47 c 48 #include"dimensions.h"49 #include"paramet.h"50 #include"coefils.h"48 INCLUDE "dimensions.h" 49 INCLUDE "paramet.h" 50 INCLUDE "coefils.h" 51 51 52 52 INTEGER nlat,nbniv,ifiltre,iter -
LMDZ6/branches/LMDZ_ECRad/libf/filtrez/filtreg_mod.F90
r4482 r4727 16 16 USE serre_mod, ONLY: alphax 17 17 USE logic_mod, ONLY: fxyhypb, ysinus 18 USE comconst_mod, ONLY: maxlatfilter 19 18 20 ! ... H. Upadhyaya, O.Sharma ... 19 21 ! … … 125 127 ! as length dx becomes of the same size as dy 126 128 ! 129 ! if maxlatfilter >0, prescribe the colat0 value from the .def files 130 131 IF (maxlatfilter .LT. 0.) THEN 132 127 133 colat0 = MIN( 0.5, dymin/dxmin ) 128 134 ! colat0 = 1. … … 133 139 alphax = 0. 134 140 ENDIF 141 142 ELSE 143 144 colat0=(90.0-maxlatfilter)/180.0*pi 145 146 ENDIF 147 148 149 135 150 ! 136 151 PRINT 50, colat0,alphax
Note: See TracChangeset
for help on using the changeset viewer.