Changeset 12131
- Timestamp:
- 2019-12-10T11:29:11+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/OCE/LBC/lib_mpp.F90
r11670 r12131 1232 1232 & OPEN(UNIT=knum,FILE='NUL', FORM=cdform, ACCESS=cdacce, STATUS=cdstat , ERR=100, IOSTAT=iost ) 1233 1233 IF( iost == 0 ) THEN 1234 IF(ldwp ) THEN1234 IF(ldwp .AND. kout > 0) THEN 1235 1235 WRITE(kout,*) ' file : ', TRIM(clfile),' open ok' 1236 1236 WRITE(kout,*) ' unit = ', knum … … 1311 1311 CHARACTER(LEN=*), INTENT(IN ) :: cdnamfile 1312 1312 CHARACTER(LEN=256) :: chline 1313 CHARACTER(LEN=1) :: csp 1313 1314 INTEGER, INTENT(IN) :: kout 1314 1315 LOGICAL, INTENT(IN) :: ldwp !: .true. only for the root broadcaster 1315 1316 INTEGER :: itot, iun, iltc, inl, ios, itotsav 1317 ! 1318 !csp = NEW_LINE('A') 1319 ! a new line character is the best seperator but some systems (e.g.Cray) 1320 ! seem to terminate namelist reads from internal files early if they 1321 ! encounter new-lines. Use a single space for safety. 1322 csp = ' ' 1316 1323 ! 1317 1324 ! Check if the namelist buffer has already been allocated. Return if it has. … … 1362 1369 IF( inl.GT.0 .AND. LEN_TRIM( chline(1:inl) ).GT.0 ) THEN 1363 1370 cdnambuff(itot:itot+inl-1) = chline(1:inl) 1364 WRITE( cdnambuff(itot+inl:itot+inl), '(a)' ) NEW_LINE('A')1371 WRITE( cdnambuff(itot+inl:itot+inl), '(a)' ) csp 1365 1372 itot = itot + inl + 1 1366 1373 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.