Changeset 3984 for dynamico_lmdz/aquaplanet/LMDZ5
- Timestamp:
- Dec 20, 2016, 7:43:31 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/minmaxqfi.F90
r3831 r3984 26 26 IF (jbad.GT.0) THEN 27 27 WRITE(*,*)comment, "k = ", k, "jbad > 0" 28 if (prt_level >= 1) then28 ! if (prt_level >= 1) then 29 29 DO i = 1, jbad 30 30 WRITE(*,*) "i,q=", jadrs(i), zq(jadrs(i),k) 31 31 ENDDO 32 end if32 ! end if 33 33 ENDIF 34 34 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.