Changeset 86 for trunk

Timestamp:

09/17/14 15:23:58 (10 years ago)

Author:

cholod

Message:

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

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90

@@ -155 +155 @@
          REWIND( numnam )                          ! read in namlist namsbc_core
          READ  ( numnam, namsbc_core )
+         IF(lwp) THEN                  ! control print
+            WRITE(numout,*)
+            WRITE(numout,*) '~~~~~~~ '
+            WRITE(numout,*) '   Namelist namsbc_core : CORE bulk formulae'
+            WRITE(numout,*) '    Tair & Q at 2m (T) instead 10m (F) ln_2m     = ', ln_2m
+            WRITE(numout,*) '    HF tau contribution                ln_taudif = ', ln_taudif
+            WRITE(numout,*) '    coeff for precip  (total & snow)   rn_pfac   = ', rn_pfac
+            WRITE(numout,*) '    coeff for understress              rn_usecrt = ', rn_usecrt
+         ENDIF
          !                                         ! check: do we plan to use ln_dm2dc with non-daily forcing?
          IF( ln_dm2dc .AND. sn_qsr%nfreqh /= 24 )   &