Changeset 10974


Ignore:
Timestamp:
2019-05-13T17:59:17+02:00 (18 months ago)
Author:
rrenshaw
Message:

code fixes

Location:
branches/UKMO/AMM15_v3_6_STABLE_package_reanalysis2/NEMOGCM/NEMO/OPA_SRC/DIA
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/AMM15_v3_6_STABLE_package_reanalysis2/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90

    r10958 r10974  
    10141014              SELECT CASE( sec%direction(jseg) ) 
    10151015              CASE(0,1) 
    1016                  ztn   = interp(k%I,k%J,jk,'V',tsn(:,:,:,0) ) 
    1017                  zsn   = interp(k%I,k%J,jk,'V',tsn(:,:,:,1) ) 
     1016                 ztn   = interp(k%I,k%J,jk,'V',0 ) 
     1017                 zsn   = interp(k%I,k%J,jk,'V',1 ) 
    10181018                 zrhop = interp(k%I,k%J,jk,'V',2) 
    10191019                 zrhoi = interp(k%I,k%J,jk,'V',3) 
  • branches/UKMO/AMM15_v3_6_STABLE_package_reanalysis2/NEMOGCM/NEMO/OPA_SRC/DIA/diaregmean.F90

    r10964 r10974  
    103103      !!---------------------------------------------------------------------- 
    104104      ! 
     105      ! Defaults are generally negative, regional means output switched off 
     106      ln_diaregmean         = .FALSE.  ! don't write regional means 
     107      ln_diaregmean_bgc     = .FALSE.  ! don't write biogeochemistry regional means 
     108      ln_diaregmean_karamld = .FALSE.  ! don't write mixed layer depth 
     109      ln_diaregmean_pea     = .FALSE.  ! don't write potential energy anomaly 
     110      ln_diaregmean_diaar5  = .FALSE.  ! don't write AR5 SLR terms 
     111      ln_diaregmean_diasbc  = .FALSE.  ! don't write surface forcing terms 
     112 
    105113      REWIND ( numnam_ref )              ! Read Namelist nam_diatmb in referdiatmbence namelist : TMB diagnostics 
    106114      READ   ( numnam_ref, nam_diaregmean, IOSTAT=ios, ERR= 901 ) 
Note: See TracChangeset for help on using the changeset viewer.