Changeset 8449


Ignore:
Timestamp:
2017-08-21T16:33:57+02:00 (3 years ago)
Author:
jamrae
Message:

Added some write statements for debugging.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_r8356_plus_form_drag/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r8448 r8449  
    623623         CASE default   ;   CALL ctl_stop( 'sbc_cpl_init: wrong definition of sn_snd_fmd%cldes' ) 
    624624      END SELECT 
     625      ! 
     626      IF(lwp) THEN                        ! control print 
     627         WRITE(numout,*) 
     628         WRITE(numout,*)'=============================================================' 
     629         WRITE(numout,*)'In sbc_cpl_init' 
     630         WRITE(numout,*)'ssnd(jps_fmdice )%clname: ', ssnd(jps_fmdice )%clname 
     631         WRITE(numout,*)'ssnd(jps_fmdice)%laction: ',ssnd(jps_fmdice)%laction 
     632         WRITE(numout,*)'=============================================================' 
     633         WRITE(numout,*) 
     634      ENDIF 
    625635      !                                                      ! -------------------------------- ! 
    626636      !                                                      !   OPA-SAS coupling - rcv by sas  !    
     
    26292639      IF( ssnd(jps_taum  )%laction )  CALL cpl_snd( jps_taum  , isec, RESHAPE ( taum, (/jpi,jpj,1/) ), info ) 
    26302640       
     2641      ! 
     2642      IF(lwp) THEN                        ! control print 
     2643         WRITE(numout,*) 
     2644         WRITE(numout,*)'=============================================================' 
     2645         WRITE(numout,*)'In sbc_cpl_snd' 
     2646         WRITE(numout,*)'ssnd(jps_fmdice )%clname: ', ssnd(jps_fmdice )%clname 
     2647         WRITE(numout,*)'ssnd(jps_fmdice)%laction: ',ssnd(jps_fmdice)%laction 
     2648         WRITE(numout,*)'=============================================================' 
     2649         WRITE(numout,*) 
     2650      ENDIF 
     2651      !                                   
     2652 
    26312653#if defined key_cice 
    26322654      ztmp1(:,:) = sstfrz(:,:) + rt0 
Note: See TracChangeset for help on using the changeset viewer.