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