Changeset 8449 for branches

Timestamp:

2017-08-21T16:33:57+02:00 (7 years ago)

Author:

jamrae

Message:

Added some write statements for debugging.

File:

• branches/UKMO/dev_r5518_GO6_package_r8356_plus_form_drag/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_GO6_package_r8356_plus_form_drag/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

@@ -623 +623 @@
          CASE default   ;   CALL ctl_stop( 'sbc_cpl_init: wrong definition of sn_snd_fmd%cldes' )
       END SELECT
+      !
+      IF(lwp) THEN                        ! control print
+         WRITE(numout,*)
+         WRITE(numout,*)'============================================================='
+         WRITE(numout,*)'In sbc_cpl_init'
+         WRITE(numout,*)'ssnd(jps_fmdice )%clname: ', ssnd(jps_fmdice )%clname
+         WRITE(numout,*)'ssnd(jps_fmdice)%laction: ',ssnd(jps_fmdice)%laction
+         WRITE(numout,*)'============================================================='
+         WRITE(numout,*)
+      ENDIF
       !                                                      ! -------------------------------- !
       !                                                      !   OPA-SAS coupling - rcv by sas  !   
@@ -2629 +2639 @@
       IF( ssnd(jps_taum  )%laction )  CALL cpl_snd( jps_taum  , isec, RESHAPE ( taum, (/jpi,jpj,1/) ), info )
       
+      !
+      IF(lwp) THEN                        ! control print
+         WRITE(numout,*)
+         WRITE(numout,*)'============================================================='
+         WRITE(numout,*)'In sbc_cpl_snd'
+         WRITE(numout,*)'ssnd(jps_fmdice )%clname: ', ssnd(jps_fmdice )%clname
+         WRITE(numout,*)'ssnd(jps_fmdice)%laction: ',ssnd(jps_fmdice)%laction
+         WRITE(numout,*)'============================================================='
+         WRITE(numout,*)
+      ENDIF
+      !                                  
+
 #if defined key_cice
       ztmp1(:,:) = sstfrz(:,:) + rt0