Changeset 3110 for LMDZ6/trunk/libf/phylmd/physiq_mod.F90
- Timestamp:
- Dec 4, 2017, 5:19:33 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/physiq_mod.F90
r3107 r3110 1122 1122 logical, parameter :: mass_fixer=.false. 1123 1123 real qql1(klon),qql2(klon),corrqql 1124 1125 REAL pi 1126 1127 pi = 4. * ATAN(1.) 1124 1128 1125 1129 ! Ehouarn: set value of jjmp1 since it is no longer a "fixed parameter" … … 2190 2194 END SELECT 2191 2195 ENDIF 2196 sza_o = ACOS (rmu0) *180./pi 2192 2197 2193 2198 IF (mydebug) THEN
Note: See TracChangeset
for help on using the changeset viewer.