Changeset 15114
- Timestamp:
- 2021-07-12T09:59:38+02:00 (3 years ago)
- Location:
- NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_dan/src/OCE/SBC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_dan/src/OCE/SBC/cpl_oasis3.F90
r13443 r15114 271 271 srcv(:)%ncplmodel = kcplmodel 272 272 ! 273 WRITE(numout,*) "DC: krcv, kcplmodel = ",krcv, kcplmodel 273 274 DO ji = 1, krcv 275 WRITE(numout,*) "DC: ji, srcv(ji)%laction, srcv(ji)%nct = ",ji, srcv(ji)%laction, srcv(ji)%nct 274 276 IF ( srcv(ji)%laction ) THEN 275 277 … … 281 283 282 284 DO jc = 1, srcv(ji)%nct 285 WRITE(numout,*) "DC: jc = ",jc 283 286 DO jm = 1, kcplmodel 287 WRITE(numout,*) "DC: jm = ",jm 284 288 285 289 IF ( srcv(ji)%nct .GT. 1 ) THEN -
NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_dan/src/OCE/SBC/sbccpl.F90
r15051 r15114 577 577 srcv(jpr_topm:jpr_botm)%laction = .TRUE. 578 578 ENDIF 579 580 WRITE(numout,*) 'DC: sn_rcv_iceflx%cldes, sn_rcv_iceflx%clcat, srcv(jpr_topm)%laction = ',sn_rcv_iceflx%cldes, sn_rcv_iceflx%clcat, srcv(jpr_topm)%laction 581 579 582 ! ! ------------------------- ! 580 583 ! ! ice skin temperature ! … … 730 733 731 734 IF (ln_couple_test) THEN 732 ! If we're just running a test coupled job then set all733 ! actions to false for all fields apart from our test field(s)734 srcv(:)%laction = .FALSE.735 735 736 736 ! Define a dummy incoming T field which we may or may not wish to use.
Note: See TracChangeset
for help on using the changeset viewer.