Changeset 3631
- Timestamp:
- Feb 10, 2020, 2:28:59 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/branches/IPSLCM5A2.1/libf/phylmd/iophy.F90
r3629 r3631 917 917 REAL, ALLOCATABLE, DIMENSION(:) :: fieldok 918 918 919 !IF (prt_level >= 10) THEN919 IF (prt_level >= 10) THEN 920 920 WRITE(lunout,*)'Begin histwrite2d_phy for ',trim(var%name) 921 !ENDIF921 ENDIF 922 922 ! ug RUSTINE POUR LES STD LEVS..... 923 923 IF (PRESENT(STD_iff)) THEN
Note: See TracChangeset
for help on using the changeset viewer.