- Timestamp:
- 2019-06-11T16:10:28+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90
r10269 r11101 183 183 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~~~~~~' 184 184 IF(lwp) WRITE(numout,*) 185 IF(lflush) CALL flush(numout) 185 186 186 187 ncplmodel = kcplmodel … … 235 236 WRITE(numout,*) ' multiexchg: nldi, nlei, nimpp =', nldi, nlei, nimpp 236 237 WRITE(numout,*) ' multiexchg: nldj, nlej, njmpp =', nldj, nlej, njmpp 238 IF(lflush) CALL flush(numout) 237 239 ENDIF 238 240 … … 313 315 CALL oasis_abort ( ssnd(ji)%nid(jc,jm), 'cpl_define', 'Failure in oasis_def_var' ) 314 316 ENDIF 315 IF( ln_ctl .AND. ssnd(ji)%nid(jc,jm) /= -1 ) WRITE(numout,*) "variable defined in the namcouple" 316 IF( ln_ctl .AND. ssnd(ji)%nid(jc,jm) == -1 ) WRITE(numout,*) "variable NOT defined in the namcouple" 317 IF( ln_ctl) THEN 318 IF(ssnd(ji)%nid(jc,jm) /= -1 ) WRITE(numout,*) "variable defined in the namcouple" 319 IF(ssnd(ji)%nid(jc,jm) == -1 ) WRITE(numout,*) "variable NOT defined in the namcouple" 320 IF(lflush) CALL flush(numout) 321 ENDIF 317 322 END DO 318 323 END DO … … 351 356 END IF 352 357 #endif 353 IF( ln_ctl ) WRITE(numout,*) "Define", ji, jc, jm, " "//TRIM(zclname), " for ", OASIS_In 354 flush(numout) 358 IF( ln_ctl ) THEN 359 WRITE(numout,*) "Define", ji, jc, jm, " "//TRIM(zclname), " for ", OASIS_In 360 IF(lflush) CALL flush(numout) 361 ENDIF 355 362 356 363 ! Define 0D (Greenland or Antarctic ice mass) or 1D (river outflow) coupling fields … … 394 401 CALL oasis_abort ( srcv(ji)%nid(jc,jm), 'cpl_define', 'Failure in oasis_def_var' ) 395 402 ENDIF 396 IF( ln_ctl .AND. srcv(ji)%nid(jc,jm) /= -1 ) WRITE(numout,*) "variable defined in the namcouple" 397 IF( ln_ctl .AND. srcv(ji)%nid(jc,jm) == -1 ) WRITE(numout,*) "variable NOT defined in the namcouple" 398 403 IF(ln_ctl) THEN 404 IF(srcv(ji)%nid(jc,jm) /= -1 ) WRITE(numout,*) "variable defined in the namcouple" 405 IF(srcv(ji)%nid(jc,jm) == -1 ) WRITE(numout,*) "variable NOT defined in the namcouple" 406 IF(lflush) CALL flush(numout) 407 ENDIF 399 408 END DO 400 409 END DO … … 447 456 WRITE(numout,*) ' - Sum value is ', SUM(pdata(:,:,jc)) 448 457 WRITE(numout,*) '****************' 458 IF(lflush) CALL flush(numout) 449 459 ENDIF 450 460 ENDIF … … 491 501 & kinfo == OASIS_RecvOut .OR. kinfo == OASIS_FromRestOut 492 502 493 IF ( ln_ctl ) WRITE(numout,*) "llaction, kinfo, kstep, ivarid: " , llaction, kinfo, kstep, srcv(kid)%nid(jc,jm) 503 IF ( ln_ctl ) THEN 504 WRITE(numout,*) "llaction, kinfo, kstep, ivarid: " , llaction, kinfo, kstep, srcv(kid)%nid(jc,jm) 505 IF(lflush) CALL flush(numout) 506 ENDIF 494 507 495 508 IF ( llaction ) THEN … … 513 526 WRITE(numout,*) ' - Sum value is ', SUM(pdata(:,:,jc)) 514 527 WRITE(numout,*) '****************' 528 IF(lflush) CALL flush(numout) 515 529 ENDIF 516 530 … … 603 617 WRITE(numout,*) ' - Start of data is ', pdata(1:number_to_print) 604 618 WRITE(numout,*) '****************' 619 IF(lflush) CALL flush(numout) 605 620 ENDIF 606 621
Note: See TracChangeset
for help on using the changeset viewer.