- Timestamp:
- 2019-05-16T15:23:56+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/SBC/sbccpl.F90
r10968 r10986 330 330 WRITE(numout,*)' ln_usecplmask = ', ln_usecplmask 331 331 WRITE(numout,*)' nn_cats_cpl = ', nn_cats_cpl 332 IF(lflush) CALL FLUSH(numout) 332 333 ENDIF 333 334 … … 466 467 l_rnfcpl = .TRUE. ! -> no need to read runoffs in sbcrnf 467 468 ln_rnf = nn_components /= jp_iam_sas ! -> force to go through sbcrnf if not sas 468 IF(lwp) WRITE(numout,*) 469 IF(lwp) WRITE(numout,*) ' runoffs received from oasis -> force ln_rnf = ', ln_rnf 469 IF(lwp) THEN 470 WRITE(numout,*) 471 WRITE(numout,*) ' runoffs received from oasis -> force ln_rnf = ', ln_rnf 472 IF(lflush) CALL FLUSH(numout) 473 ENDIF 470 474 ENDIF 471 475 ! … … 476 480 IF( srcv(jpr_isf)%laction .AND. ln_isf ) THEN 477 481 l_isfcpl = .TRUE. ! -> no need to read isf in sbcisf 478 IF(lwp) WRITE(numout,*) 479 IF(lwp) WRITE(numout,*) ' iceshelf received from oasis ' 482 IF(lwp) THEN 483 WRITE(numout,*) 484 WRITE(numout,*) ' iceshelf received from oasis ' 485 IF(lflush) CALL FLUSH(numout) 486 ENDIF 480 487 ENDIF 481 488 ! … … 542 549 srcv(jpr_co2 )%laction = .TRUE. 543 550 l_co2cpl = .TRUE. 544 IF(lwp) WRITE(numout,*) 545 IF(lwp) WRITE(numout,*) ' Atmospheric pco2 received from oasis ' 546 IF(lwp) WRITE(numout,*) 551 IF(lwp) THEN 552 WRITE(numout,*) 553 WRITE(numout,*) ' Atmospheric pco2 received from oasis ' 554 WRITE(numout,*) 555 IF(lflush) CALL FLUSH(numout) 556 ENDIF 547 557 ENDIF 548 558 ! … … 666 676 WRITE(numout,*)' wind stress module' 667 677 WRITE(numout,*) 678 IF(lflush) CALL FLUSH(numout) 668 679 ENDIF 669 680 ENDIF … … 713 724 WRITE(numout,*)' fraction of solar net radiation absorbed in the first ocean level' 714 725 WRITE(numout,*) 726 IF(lflush) CALL FLUSH(numout) 715 727 ENDIF 716 728 ENDIF … … 980 992 WRITE(numout,*)' fraction of solar net radiation absorbed in the first ocean level' 981 993 WRITE(numout,*) 994 IF(lflush) CALL FLUSH(numout) 982 995 ENDIF 983 996 ENDIF … … 1020 1033 WRITE(numout,*)' wind stress U,V components' 1021 1034 WRITE(numout,*)' wind stress module' 1035 IF(lflush) CALL FLUSH(numout) 1022 1036 ENDIF 1023 1037 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.