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 867 for trunk/NEMO/LIM_SRC_3/limdyn.F90 – NEMO

Ignore:
Timestamp:
2008-03-14T15:57:19+01:00 (16 years ago)
Author:
ctlod
Message:

Add control prints for sea-ice

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/LIM_SRC_3/limdyn.F90

    r863 r867  
    271271 
    272272      IF(ln_ctl) THEN   ! Control print 
     273         CALL prt_ctl_info(' ') 
     274         CALL prt_ctl_info(' - Cell values : ') 
     275         CALL prt_ctl_info('   ~~~~~~~~~~~~~ ') 
    273276         CALL prt_ctl(tab2d_1=tio_u     , clinfo1=' lim_dyn  : tio_u     :', tab2d_2=tio_v , clinfo2=' tio_v :') 
    274277         CALL prt_ctl(tab2d_1=ust2s     , clinfo1=' lim_dyn  : ust2s     :') 
    … …  
    284287         CALL prt_ctl(tab2d_1=stress12_i, clinfo1=' lim_dyn  : stress12_i:') 
    285288         DO jl = 1, jpl 
     289            CALL prt_ctl_info(' ') 
    286290            CALL prt_ctl_info(' - Category : ', ivar1=jl) 
    287291            CALL prt_ctl_info('   ~~~~~~~~~~') 
    … …  
    297301            CALL prt_ctl(tab2d_1=smv_i (:,:,jl)   , clinfo1= ' lim_dyn  : smv_i    : ') 
    298302            DO ja = 1, nlay_i 
     303               CALL prt_ctl_info(' ') 
    299304               CALL prt_ctl_info(' - Layer : ', ivar1=ja) 
    300305               CALL prt_ctl_info('   ~~~~~~~') 
Note: See TracChangeset for help on using the changeset viewer.