Changeset 10043 for branches/UKMO/dev_r5518_cleanup_1d_cpl/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

Timestamp:

2018-08-07T12:25:11+02:00 (6 years ago)

Author:

dancopsey

Message:

Remove RSRH print statements.

File:

• branches/UKMO/dev_r5518_cleanup_1d_cpl/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90 (modified) (5 diffs)

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

@@ -485 +485 @@
       IF( TRIM( sn_rcv_cal%cldes ) == 'coupled' )   srcv(jpr_cal)%laction = .TRUE.
       srcv(jpr_grnm  )%clname = 'OGrnmass'   
-      srcv(jpr_grnm  )%dimensions = 0 ! Scalar field   
-write(numout,*) "RSRH set up grnmss dimension:"
-
+      srcv(jpr_grnm  )%dimensions = 0 ! Scalar field
 
       IF( TRIM( sn_rcv_grnm%cldes ) == 'coupled' )   srcv(jpr_grnm)%laction = .TRUE.
@@ -959 +957 @@
             !
             CASE( 0 )   ! Scalar field
-WRITE(numout,*) "RSRH allocate zero dim field z3",jn ; flush(numout)
-
-               ! We have a scalar field
                ALLOCATE( frcv(jn)%z3(1,1,1) )
                
             CASE( 1 )   ! 1D field
-            
-               ! In the special case of 1D fields we can't allocate the array yet as
-               ! we don't know what nn_cpl_river is. 
-WRITE(numout,*) "RSRH allocate 1 dim field z3",jn, nn_cpl_river ; flush(numout)
-               
                ALLOCATE( frcv(jn)%z3(nn_cpl_river,1,1) )
                
-            CASE DEFAULT
-            
- WRITE(numout,*) "RSRH allocate 2 dim field z3",jn,srcv(jn)%nct ; flush(numout)
-              ! We have a "normal" 2D (or pseudo 3D) field.
+            CASE DEFAULT  ! 2D (or pseudo 3D) field.
                ALLOCATE( frcv(jn)%z3(jpi,jpj,srcv(jn)%nct) )
+               
             END SELECT
          END IF
@@ -1118 +1106 @@
       !
       IF( ln_mixcpl )   zmsk(:,:) = 1. - xcplmask(:,:,0)
-write(numout,*) "RSRH in cpl_rcv",kt ; flush(numout)
       !
       !                                                      ! ======================================================= !
@@ -1126 +1113 @@
       DO jn = 1, jprcv                                          ! received fields sent by the atmosphere
          IF( srcv(jn)%laction ) THEN 
-write(numout,*) "RSRH recieving field via call to cpl_rcv",kt,jn ; flush(numout)
 
             IF ( srcv(jn)%dimensions == 0 ) THEN
-write(numout,*) "RSRH recieving 0d or 1d field",kt,jn ; flush(numout)
                CALL cpl_rcv_1d( jn, isec, frcv(jn)%z3, SIZE(frcv(jn)%z3), nrcvinfo(jn) )
             ELSE
-write(numout,*) "RSRH recieving 2d field",kt,jn ; flush(numout)
                CALL cpl_rcv( jn, isec, frcv(jn)%z3, xcplmask(:,:,1:nn_cplmodel), nrcvinfo(jn) )
             END IF
-write(numout,*) "RSRH completed recieve of field via call to cpl_rcv",kt,jn ; flush(numout)
 
          END IF
       END DO
-write(numout,*) "RSRH still in cpl_rcv",kt ; flush(numout)
       !                                                      ! ========================= !
       IF( srcv(jpr_otx1)%laction ) THEN                      !  ocean stress components  !
@@ -1440 +1422 @@
          zmask_sum = glob_sum( tmask(:,:,1) )
       ENDIF
-write(numout,*) "RSRH still in cpl_rcv at teswt for grnm",kt ; flush(numout)
 
       IF( srcv(jpr_grnm)%laction .AND. nn_coupled_iceshelf_fluxes == 1 ) THEN
          ! This is a zero dimensional, single value field. 
          zgreenland_icesheet_mass_in =  frcv(jpr_grnm)%z3(1,1,1)
-write(numout,*) "RSRH still in cpl_rcv inside teswt for grnm",kt ; flush(numout)
 
          greenland_icesheet_timelapsed = greenland_icesheet_timelapsed + rdt