Changeset 2311 for LMDZ5/trunk/libf/phylmd/minmaxqfi.F90
- Timestamp:
- Jun 25, 2015, 9:45:24 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/minmaxqfi.F90
r2098 r2311 4 4 SUBROUTINE minmaxqfi(zq,qmin,qmax,comment) 5 5 USE dimphy 6 USE print_control_mod, ONLY: prt_level 6 7 IMPLICIT NONE 7 8 … … 15 16 INTEGER :: i, jbad, k 16 17 17 include "iniprint.h"18 19 18 DO k = 1, klev 20 19 jbad = 0
Note: See TracChangeset
for help on using the changeset viewer.