Changeset 86 for trunk


Ignore:
Timestamp:
09/17/14 15:23:58 (10 years ago)
Author:
cholod
Message:

Print namsbc_core parameters (rn_usecrt...) in ocean.output

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90

    r83 r86  
    155155         REWIND( numnam )                          ! read in namlist namsbc_core 
    156156         READ  ( numnam, namsbc_core ) 
     157         IF(lwp) THEN                  ! control print 
     158            WRITE(numout,*) 
     159            WRITE(numout,*) '~~~~~~~ ' 
     160            WRITE(numout,*) '   Namelist namsbc_core : CORE bulk formulae' 
     161            WRITE(numout,*) '    Tair & Q at 2m (T) instead 10m (F) ln_2m     = ', ln_2m 
     162            WRITE(numout,*) '    HF tau contribution                ln_taudif = ', ln_taudif 
     163            WRITE(numout,*) '    coeff for precip  (total & snow)   rn_pfac   = ', rn_pfac 
     164            WRITE(numout,*) '    coeff for understress              rn_usecrt = ', rn_usecrt 
     165         ENDIF 
    157166         !                                         ! check: do we plan to use ln_dm2dc with non-daily forcing? 
    158167         IF( ln_dm2dc .AND. sn_qsr%nfreqh /= 24 )   &  
Note: See TracChangeset for help on using the changeset viewer.