Changeset 4519 for LMDZ6/trunk/libf/filtrez
- Timestamp:
- Apr 24, 2023, 6:11:11 PM (20 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/filtrez/filtreg_mod.F90
r4440 r4519 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.