Changeset 11070


Ignore:
Timestamp:
2019-06-03T15:04:56+02:00 (17 months ago)
Author:
rrenshaw
Message:

code fixes

Location:
branches/UKMO/AMM15_v3_6_STABLE_package_reanalysis3/NEMOGCM/NEMO/OPA_SRC
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/AMM15_v3_6_STABLE_package_reanalysis3/NEMOGCM/NEMO/OPA_SRC/ASM/asmbgc.F90

    r10728 r11070  
    3636   USE zdfmxl, ONLY :       & ! mixed layer depth  
    3737#if defined key_karaml 
    38       & hmld_kara,          & 
     38      & hmld_zint,          & 
    3939      & ln_kara,            & 
    4040#endif    
     
    147147                                         !                 (0.01 kg/m^3 change from 10m) 
    148148                                         !                 [W points] 
    149                                          !  3) hmld_kara - Kara MLD 
     149                                         !  3) hmld_zint - Kara MLD 
    150150                                         !                 [Interpolated] 
    151151                                         !  4) hmld_tref - Temperature criterion 
     
    14261426#if defined key_karaml 
    14271427               IF ( ln_kara ) THEN 
    1428                   zmld(:,:) = hmld_kara(:,:) 
     1428                  zmld(:,:) = hmld_zint(:,:) 
    14291429               ELSE 
    14301430                  CALL ctl_stop( ' Kara mixed layer requested for phyto2d assimilation,', & 
     
    20202020#if defined key_karaml 
    20212021               IF ( ln_kara ) THEN 
    2022                   zmld(:,:) = hmld_kara(:,:) 
     2022                  zmld(:,:) = hmld_zint(:,:) 
    20232023               ELSE 
    20242024                  CALL ctl_stop( ' Kara mixed layer requested for pCO2 assimilation,', & 
  • branches/UKMO/AMM15_v3_6_STABLE_package_reanalysis3/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90

    r10728 r11070  
    4343   &  hmld_tref,       &    
    4444#if defined key_karaml 
    45    &  hmld_kara,       & 
     45   &  hmld_zint,       & 
    4646   &  ln_kara,         & 
    4747#endif    
     
    108108                                      !: 1) hmld      - Turbocline/mixing depth                           [W points] 
    109109                                      !: 2) hmlp      - Density criterion (0.01 kg/m^3 change from 10m)   [W points] 
    110                                       !: 3) hmld_kara - Kara MLD                                          [Interpolated] 
     110                                      !: 3) hmld_zint - Kara MLD                                          [Interpolated] 
    111111                                      !: 4) hmld_tref - Temperature criterion (0.2 K change from surface) [T points] 
    112112 
     
    518518#if defined key_karaml 
    519519                  IF ( ln_kara ) THEN 
    520                      z_mld = hmld_kara 
     520                     z_mld = hmld_zint 
    521521                  ELSE 
    522522                     CALL ctl_stop("Kara mixed layer not calculated as ln_kara=.false.") 
     
    12791279! 
    12801280!           ! change salinity down to mixed layer depth 
    1281 !                 mld=hmld_kara(ji,jj) 
     1281!                 mld=hmld_zint(ji,jj) 
    12821282! 
    12831283!           ! prevent small mld 
  • branches/UKMO/AMM15_v3_6_STABLE_package_reanalysis3/NEMOGCM/NEMO/OPA_SRC/DIA/diaregmean.F90

    r11066 r11070  
    531531         
    532532        IF( ln_diaregmean_karamld  ) THEN 
    533             tmp_field_mat(:,:,16) = tmp_field_mat(:,:,16) + (hmld_kara(:,:)*tmask(:,:,1)) !mldkara 
     533            tmp_field_mat(:,:,16) = tmp_field_mat(:,:,16) + (hmld_zint(:,:)*tmask(:,:,1)) !mldkara 
    534534        ENDIF 
    535535 
Note: See TracChangeset for help on using the changeset viewer.