Changeset 304 for LMDZ.3.3/branches/rel-LF/libf/phylmd/calcratqs.F
- Timestamp:
- Dec 18, 2001, 5:46:09 PM (23 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ.3.3/branches/rel-LF/libf/phylmd/calcratqs.F
r290 r304 1 1 c $Header$ 2 SUBROUTINE calcratqs ( 2 SUBROUTINE calcratqs ( flag_ratqs, 3 3 I paprs,pplay,q_seri,d_t_con,d_t_ajs 4 4 O ,ratqs,zpt_conv) … … 41 41 INTEGER i,k 42 42 INTEGER flag_ratqs 43 save ratqsmin,ratqsmax, flag_ratqs,epmax43 save ratqsmin,ratqsmax,epmax 44 44 save ratqs1,ratqs2,ratqs3,ratqs4 45 45 save ratqsc1,ratqsc2,ratqsc3,ratqsc4 … … 51 51 PARAMETER (zx_max=0.1) 52 52 53 flag_ratqs=154 flag_ratqs=055 53 zpt_conv=0. 56 54 c
Note: See TracChangeset
for help on using the changeset viewer.