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 11367 for NEMO/branches/UKMO/NEMO_4.0_GO8_coupled_iodef/src/ICE/icesbc.F90 – NEMO

Ignore:
Timestamp:
2019-07-29T18:10:24+02:00 (5 years ago)
Author:
dancopsey
Message:

More print statements including fix

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/UKMO/NEMO_4.0_GO8_coupled_iodef/src/ICE/icesbc.F90

    r10888 r11367  
    8585         CALL lbc_lnk_multi( 'icesbc', utau_ice, 'U', -1., vtau_ice, 'V', -1. ) 
    8686      ENDIF 
     87 
     88      IF(narea == 68) THEN 
     89         WRITE(968,*) 'utau_ice in icesbc = ',utau_ice(54,1) 
     90         WRITE(968,*) 'vtau_ice in icesbc = ',vtau_ice(54,1) 
     91      ENDIF 
     92 
    8793      ! 
    8894      IF( ln_timing )   CALL timing_stop('ice_sbc') 
Note: See TracChangeset for help on using the changeset viewer.