Changeset 15114

Timestamp:

2021-07-12T09:59:38+02:00 (3 years ago)

Author:

dancopsey

Message:

• Remove turning off receiveing all data from the atmosphere
  • Add print statements

Location:

NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_dan/src/OCE/SBC

Files:

• cpl_oasis3.F90 (modified) (2 diffs)
• sbccpl.F90 (modified) (2 diffs)

NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_dan/src/OCE/SBC/cpl_oasis3.F90

@@ -271 +271 @@
       srcv(:)%ncplmodel = kcplmodel
       !
+      WRITE(numout,*) "DC: krcv, kcplmodel = ",krcv, kcplmodel
       DO ji = 1, krcv
+         WRITE(numout,*) "DC: ji, srcv(ji)%laction, srcv(ji)%nct = ",ji, srcv(ji)%laction, srcv(ji)%nct
          IF ( srcv(ji)%laction ) THEN 
             
@@ -281 +283 @@
             
             DO jc = 1, srcv(ji)%nct
+               WRITE(numout,*) "DC: jc = ",jc
                DO jm = 1, kcplmodel
+                  WRITE(numout,*) "DC: jm = ",jm
                   
                   IF ( srcv(ji)%nct .GT. 1 ) THEN

NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_dan/src/OCE/SBC/sbccpl.F90

@@ -577 +577 @@
          srcv(jpr_topm:jpr_botm)%laction = .TRUE.
       ENDIF
+
+      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
+
       !                                                      ! ------------------------- !
       !                                                      !    ice skin temperature   !   
@@ -730 +733 @@
 
       IF (ln_couple_test) THEN
-         ! If we're just running a test coupled job then set all 
-         ! actions to false for all fields apart from our test field(s)
-         srcv(:)%laction = .FALSE.
 
          ! Define a dummy incoming T field which we may or may not wish to use.