New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 8459 – NEMO

Changeset 8459


Ignore:
Timestamp:
2017-08-23T17:53:34+02:00 (7 years ago)
Author:
jamrae
Message:

Outputs 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

    r8449 r8459  
    627627         WRITE(numout,*) 
    628628         WRITE(numout,*)'=============================================================' 
    629          WRITE(numout,*)'In sbc_cpl_init' 
     629         WRITE(numout,*)'In sbc_cpl_init, after setting up ssnd(jps_fmdice)' 
    630630         WRITE(numout,*)'ssnd(jps_fmdice )%clname: ', ssnd(jps_fmdice )%clname 
    631631         WRITE(numout,*)'ssnd(jps_fmdice)%laction: ',ssnd(jps_fmdice)%laction 
     
    971971      ! ================================ ! 
    972972 
     973      IF(lwp) THEN                        ! control print 
     974         WRITE(numout,*) 
     975         WRITE(numout,*)'=============================================================' 
     976         WRITE(numout,*)'In sbc_cpl_init, before call to cpl_define' 
     977         WRITE(numout,*)'ssnd(jps_fmdice )%clname: ', ssnd(jps_fmdice )%clname 
     978         WRITE(numout,*)'ssnd(jps_fmdice)%laction: ',ssnd(jps_fmdice)%laction 
     979         WRITE(numout,*)'=============================================================' 
     980         WRITE(numout,*) 
     981      ENDIF 
     982 
    973983      CALL cpl_define(jprcv, jpsnd, nn_cplmodel) 
    974984       
     985 
     986      IF(lwp) THEN                        ! control print 
     987         WRITE(numout,*) 
     988         WRITE(numout,*)'=============================================================' 
     989         WRITE(numout,*)'In sbc_cpl_init, after call to cpl_define' 
     990         WRITE(numout,*)'ssnd(jps_fmdice )%clname: ', ssnd(jps_fmdice )%clname 
     991         WRITE(numout,*)'ssnd(jps_fmdice)%laction: ',ssnd(jps_fmdice)%laction 
     992         WRITE(numout,*)'=============================================================' 
     993         WRITE(numout,*) 
     994      ENDIF 
     995 
    975996      IF (ln_usecplmask) THEN  
    976997         xcplmask(:,:,:) = 0. 
Note: See TracChangeset for help on using the changeset viewer.