Changeset 4046 for LMDZ6/trunk/libf/phylmd/iophy.F90
- Timestamp:
- Dec 15, 2021, 11:18:49 PM (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/iophy.F90
r3488 r4046 811 811 IMPLICIT NONE 812 812 813 CHARACTER(LEN= 20):: nam_var814 INTEGER, DIMENSION(nfiles) :: flag_var813 CHARACTER(LEN=*), INTENT(INOUT) :: nam_var 814 INTEGER, INTENT(INOUT) :: flag_var(nfiles) 815 815 816 816 IF(prt_level>10) WRITE(lunout,*)'Avant getin: nam_var flag_var ',nam_var,flag_var(:)
Note: See TracChangeset
for help on using the changeset viewer.