Changeset 9278


Ignore:
Timestamp:
2018-01-23T18:44:33+01:00 (3 years ago)
Author:
anaguiar
Message:

New variable needs to be set as PUBLIC to be shared

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_05sprecip/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90

    r9275 r9278  
    8787   LOGICAL  ::   ln_taudif   ! logical flag to use the "mean of stress module - module of mean stress" data 
    8888   REAL(wp) ::   rn_pfac     ! multiplication factor for precipitation 
    89    REAL(wp) ::   rn_sfac     ! multiplication factor for snow precipitation over sea-ice 
    9089   REAL(wp) ::   rn_efac     ! multiplication factor for evaporation (clem) 
    9190   REAL(wp) ::   rn_vfac     ! multiplication factor for ice/ocean velocity in the calculation of wind stress (clem) 
    9291   REAL(wp) ::   rn_zqt      ! z(q,t) : height of humidity and temperature measurements 
    9392   REAL(wp) ::   rn_zu       ! z(u)   : height of wind measurements 
     93   REAL(wp), PUBLIC :: rn_sfac ! multiplication factor for snow precipitation over sea-ice 
    9494 
    9595   !! * Substitutions 
Note: See TracChangeset for help on using the changeset viewer.