Changeset 2801


Ignore:
Timestamp:
2011-07-13T19:45:53+02:00 (9 years ago)
Author:
vichi
Message:

Bug corrected in sbcblk_core.F90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/dev_r2784_CMCC1_topbfm/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90

    r2799 r2801  
    7777   LOGICAL  ::   ln_taudif = .FALSE.   ! logical flag to use the "mean of stress module - module of mean stress" data 
    7878   REAL(wp) ::   rn_pfac   = 1.        ! multiplication factor for precipitation 
    79  
    8079#if defined key_orca_r025 
    8180   LOGICAL  ::   ln_printdia= .TRUE.     ! logical flag for height of air temp. and hum 
     
    8988   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:)   ::  area  
    9089   REAL(wp) :: araux 
    91  
    9290   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:)   ::  zqlw, zqsb  ! long wave and sensible heat fluxes 
    9391   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:)   ::  zqla, zevap ! latent heat fluxes and evaporation 
     
    163161      NAMELIST/namsbc_core/ cn_dir , ln_2m  , ln_taudif, rn_pfac,           & 
    164162         &                  sn_wndi, sn_wndj, sn_humi  , sn_qsr ,           & 
    165          &                  sn_qlw , sn_tair, sn_prec  , sn_snow, sn_tdif   & 
    166          &                  sn_swc , sn_lwc , sn_prc   , ln_gwxc  ,         & 
     163         &                  sn_qlw , sn_tair, sn_prec  , sn_snow, sn_tdif,  & 
     164         &                  sn_swc , sn_lwc , sn_prc   , ln_gwxc         & 
    167165         &                  ln_corad_antar, ln_corad_arc, ln_cotair_arc, ln_coprecip ,  & 
    168166         &                  rn_qns_bias, ln_printdia, ln_netsw, ln_core_graceopt,ln_core_spinup 
Note: See TracChangeset for help on using the changeset viewer.