Changeset 2801

Timestamp:

2011-07-13T19:45:53+02:00 (13 years ago)

Author:

vichi

Message:

Bug corrected in sbcblk_core.F90

File:

• branches/2011/dev_r2784_CMCC1_topbfm/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90 (modified) (3 diffs)

branches/2011/dev_r2784_CMCC1_topbfm/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90

@@ -77 +77 @@
    LOGICAL  ::   ln_taudif = .FALSE.   ! logical flag to use the "mean of stress module - module of mean stress" data
    REAL(wp) ::   rn_pfac   = 1.        ! multiplication factor for precipitation
-
 #if defined key_orca_r025
    LOGICAL  ::   ln_printdia= .TRUE.     ! logical flag for height of air temp. and hum
@@ -89 +88 @@
    REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:)   ::  area 
    REAL(wp) :: araux
-
    REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:)   ::  zqlw, zqsb  ! long wave and sensible heat fluxes
    REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:)   ::  zqla, zevap ! latent heat fluxes and evaporation
@@ -163 +161 @@
       NAMELIST/namsbc_core/ cn_dir , ln_2m  , ln_taudif, rn_pfac,           &
          &                  sn_wndi, sn_wndj, sn_humi  , sn_qsr ,           &
-         &                  sn_qlw , sn_tair, sn_prec  , sn_snow, sn_tdif   &
-         &                  sn_swc , sn_lwc , sn_prc   , ln_gwxc  ,         &
+         &                  sn_qlw , sn_tair, sn_prec  , sn_snow, sn_tdif,  &
+         &                  sn_swc , sn_lwc , sn_prc   , ln_gwxc,           &
          &                  ln_corad_antar, ln_corad_arc, ln_cotair_arc, ln_coprecip ,  &
          &                  rn_qns_bias, ln_printdia, ln_netsw, ln_core_graceopt,ln_core_spinup