New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 3403 – NEMO

Changeset 3403


Ignore:
Timestamp:
2012-05-28T12:32:12+02:00 (12 years ago)
Author:
acc
Message:

Branch: dev_r3385_NOCS04_HAMF; #665. Stage 2a of 2012 development: further suppression of emps array in TOP routines (to be checked) and inclusion of new namelist parameter in reference configuration namelists

Location:
branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM
Files:
8 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/CONFIG/AMM12/EXP00/namelist

    r3309 r3403  
    137137                           !  =1 use observed ice-cover      , 
    138138                           !  =2 ice-model used                         ("key_lim3" or "key_lim2) 
     139   nn_ice_embd = 0         !  =0 levitating ice (no mass exchange, concentration/dilution effect) 
     140                           !  =1 levitating ice with mass and salt exchange but no presure effect 
     141                           !  =2 embedded sea-ice (full salt and mass exchanges and pressure) 
    139142   ln_dm2dc    = .false.   !  daily mean to diurnal cycle on short wave 
    140143   ln_rnf      = .true.    !  runoffs                                   (T => fill namsbc_rnf) 
  • branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/CONFIG/AMM12_PISCES/EXP00/namelist

    r3309 r3403  
    137137                           !  =1 use observed ice-cover      , 
    138138                           !  =2 ice-model used                         ("key_lim3" or "key_lim2) 
     139   nn_ice_embd = 0         !  =0 levitating ice (no mass exchange, concentration/dilution effect) 
     140                           !  =1 levitating ice with mass and salt exchange but no presure effect 
     141                           !  =2 embedded sea-ice (full salt and mass exchanges and pressure) 
    139142   ln_dm2dc    = .false.   !  daily mean to diurnal cycle on short wave 
    140143   ln_rnf      = .true.    !  runoffs                                   (T => fill namsbc_rnf) 
  • branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/CONFIG/GYRE/EXP00/namelist

    r3306 r3403  
    137137                           !  =1 use observed ice-cover      , 
    138138                           !  =2 ice-model used                         ("key_lim3" or "key_lim2) 
     139   nn_ice_embd = 0         !  =0 levitating ice (no mass exchange, concentration/dilution effect) 
     140                           !  =1 levitating ice with mass and salt exchange but no presure effect 
     141                           !  =2 embedded sea-ice (full salt and mass exchanges and pressure) 
    139142   ln_dm2dc    = .false.   !  daily mean to diurnal cycle on short wave 
    140143   ln_rnf      = .false.   !  runoffs                                   (T => fill namsbc_rnf) 
  • branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/CONFIG/ORCA2_LIM/EXP00/namelist

    r3306 r3403  
    137137                           !  =1 use observed ice-cover      , 
    138138                           !  =2 ice-model used                         ("key_lim3" or "key_lim2) 
     139   nn_ice_embd = 0         !  =0 levitating ice (no mass exchange, concentration/dilution effect) 
     140                           !  =1 levitating ice with mass and salt exchange but no presure effect 
     141                           !  =2 embedded sea-ice (full salt and mass exchanges and pressure) 
    139142   ln_dm2dc    = .false.   !  daily mean to diurnal cycle on short wave 
    140143   ln_rnf      = .true.    !  runoffs                                   (T => fill namsbc_rnf) 
  • branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/CONFIG/ORCA2_OFF_PISCES/EXP00/namelist

    r3306 r3403  
    137137                           !  =1 use observed ice-cover      , 
    138138                           !  =2 ice-model used                         ("key_lim3" or "key_lim2) 
     139   nn_ice_embd = 0         !  =0 levitating ice (no mass exchange, concentration/dilution effect) 
     140                           !  =1 levitating ice with mass and salt exchange but no presure effect 
     141                           !  =2 embedded sea-ice (full salt and mass exchanges and pressure) 
    139142   ln_dm2dc    = .false.   !  daily mean to diurnal cycle on short wave 
    140143   ln_rnf      = .true.    !  runoffs                                   (T => fill namsbc_rnf) 
  • branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/NEMO/TOP_SRC/TRP/trcsbc.F90

    r3294 r3403  
    6363      REAL(wp) ::   zsrau, zse3t   ! temporary scalars 
    6464      CHARACTER (len=22) :: charout 
    65       REAL(wp), POINTER, DIMENSION(:,:  ) :: zemps 
     65      REAL(wp), POINTER, DIMENSION(:,:  ) :: zsfx 
    6666      REAL(wp), POINTER, DIMENSION(:,:,:) :: ztrtrd 
    6767      !!--------------------------------------------------------------------- 
     
    7070      ! 
    7171      ! Allocate temporary workspace 
    72                       CALL wrk_alloc( jpi, jpj,      zemps  ) 
     72                      CALL wrk_alloc( jpi, jpj,      zsfx   ) 
    7373      IF( l_trdtrc )  CALL wrk_alloc( jpi, jpj, jpk, ztrtrd ) 
    7474 
     
    8080 
    8181 
    82       IF( lk_offline ) THEN          ! emps in dynamical files contains emps - rnf 
    83          zemps(:,:) = emps(:,:)   
     82      IF( lk_offline ) THEN          ! sfx in dynamical files contains sfx - rnf 
     83         zsfx(:,:) = sfx(:,:)   
    8484      ELSE                           ! Concentration dilution effect on tracer due to evaporation, precipitation, and river runoff 
    8585         IF( lk_vvl ) THEN                      ! volume variable 
    86             zemps(:,:) = emps(:,:) - emp(:,:)    
    87 !!ch         zemps(:,:) = 0. 
     86            zsfx(:,:) = sfx(:,:) - emp(:,:)    
     87!!ch         zsfx(:,:) = 0. 
    8888         ELSE                                   ! linear free surface 
    89             IF( ln_rnf ) THEN  ;  zemps(:,:) = emps(:,:) - rnf(:,:)   !  E-P-R 
    90             ELSE               ;  zemps(:,:) = emps(:,:) 
     89            IF( ln_rnf ) THEN  ;  zsfx(:,:) = sfx(:,:) - rnf(:,:)   !  E-P-R 
     90            ELSE               ;  zsfx(:,:) = sfx(:,:) 
    9191            ENDIF  
    9292         ENDIF  
     
    102102            DO ji = fs_2, fs_jpim1   ! vector opt. 
    103103               zse3t = 1. / fse3t(ji,jj,1) 
    104                tra(ji,jj,1,jn) = tra(ji,jj,1,jn) + zemps(ji,jj) *  zsrau * trn(ji,jj,1,jn) * zse3t 
     104               tra(ji,jj,1,jn) = tra(ji,jj,1,jn) + zsfx(ji,jj) *  zsrau * trn(ji,jj,1,jn) * zse3t 
    105105            END DO 
    106106         END DO 
     
    117117                                           CALL prt_ctl_trc( tab4d=tra, mask=tmask, clinfo=ctrcnm, clinfo2='trd' ) 
    118118      ENDIF 
    119                       CALL wrk_dealloc( jpi, jpj,      zemps  ) 
     119                      CALL wrk_dealloc( jpi, jpj,      zsfx   ) 
    120120      IF( l_trdtrc )  CALL wrk_dealloc( jpi, jpj, jpk, ztrtrd ) 
    121121      ! 
  • branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/NEMO/TOP_SRC/oce_trc.F90

    r3294 r3403  
    227227   USE sbc_oce , ONLY :   emp        =>    emp        !: freshwater budget: volume flux               [Kg/m2/s] 
    228228   USE sbc_oce , ONLY :   emp_b      =>    emp_b      !: freshwater budget: volume flux               [Kg/m2/s] 
    229    USE sbc_oce , ONLY :   emps       =>    emps       !: freshwater budget: concentration/dillution   [Kg/m2/s] 
     229   USE sbc_oce , ONLY :   sfx        =>    sfx        !: freshwater budget: concentration/dillution   [Kg/m2/s] 
    230230   USE sbc_oce , ONLY :   rnf        =>    rnf        !: river runoff   [Kg/m2/s] 
    231231   USE sbc_oce , ONLY :   ln_dm2dc   =>    ln_dm2dc   !: Daily mean to Diurnal Cycle short wave (qsr)  
  • branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/NEMO/TOP_SRC/trcsub.F90

    r3294 r3403  
    121121          fr_i_tm  (:,:)         = fr_i_tm  (:,:)         + fr_i  (:,:) 
    122122          emp_tm   (:,:)         = emp_tm   (:,:)         + emp   (:,:)  
    123           emps_tm  (:,:)         = emps_tm  (:,:)         + emps  (:,:) 
     123          emps_tm  (:,:)         = emps_tm  (:,:)         + sfx   (:,:) 
    124124          qsr_tm   (:,:)         = qsr_tm   (:,:)         + qsr   (:,:) 
    125125          wndm_tm  (:,:)         = wndm_tm  (:,:)         + wndm  (:,:) 
     
    209209         emp_temp   (:,:)        = emp   (:,:) 
    210210         emp_b_temp (:,:)        = emp_b (:,:) 
    211          emps_temp  (:,:)        = emps  (:,:) 
     211         emps_temp  (:,:)        = sfx   (:,:) 
    212212         qsr_temp   (:,:)        = qsr   (:,:) 
    213213         wndm_temp  (:,:)        = wndm  (:,:) 
     
    313313         fr_i_tm  (:,:)          = fr_i_tm    (:,:)       + fr_i  (:,:) 
    314314         emp_tm   (:,:)          = emp_tm     (:,:)       + emp   (:,:)  
    315          emps_tm  (:,:)          = emps_tm    (:,:)       + emps  (:,:) 
     315         emps_tm  (:,:)          = emps_tm    (:,:)       + sfx   (:,:) 
    316316         qsr_tm   (:,:)          = qsr_tm     (:,:)       + qsr   (:,:) 
    317317         wndm_tm  (:,:)          = wndm_tm    (:,:)       + wndm  (:,:) 
     
    332332            qsr   (:,:)          = qsr_tm     (:,:) * r1_ndttrc  
    333333            emp   (:,:)          = emp_tm     (:,:) * r1_ndttrc  
    334             emps  (:,:)          = emps_tm    (:,:) * r1_ndttrc  
     334            sfx   (:,:)          = emps_tm    (:,:) * r1_ndttrc  
    335335            fr_i  (:,:)          = fr_i_tm    (:,:) * r1_ndttrc 
    336336# if defined key_trabbl 
     
    348348            qsr   (:,:)          = qsr_tm     (:,:) * r1_ndttrcp1  
    349349            emp   (:,:)          = emp_tm     (:,:) * r1_ndttrcp1  
    350             emps  (:,:)          = emps_tm    (:,:) * r1_ndttrcp1  
     350            sfx   (:,:)          = emps_tm    (:,:) * r1_ndttrcp1  
    351351            fr_i  (:,:)          = fr_i_tm    (:,:) * r1_ndttrcp1  
    352352# if defined key_trabbl 
     
    498498         CALL lbc_lnk( emp   (:,:)         , 'T', 1. )  
    499499         CALL lbc_lnk( emp_b (:,:)         , 'T', 1. )  
    500          CALL lbc_lnk( emps  (:,:)         , 'T', 1. )  
     500         CALL lbc_lnk( sfx   (:,:)         , 'T', 1. )  
    501501         CALL lbc_lnk( qsr   (:,:)         , 'T', 1. )  
    502502         CALL lbc_lnk( wndm  (:,:)         , 'T', 1. )  
     
    705705      fr_i  (:,:)     =  fr_i_temp  (:,:) 
    706706      emp   (:,:)     =  emp_temp   (:,:) 
    707       emps  (:,:)     =  emps_temp  (:,:) 
     707      sfx   (:,:)     =  emps_temp  (:,:) 
    708708      emp_b (:,:)     =  emp_b_temp (:,:) 
    709709      qsr   (:,:)     =  qsr_temp   (:,:) 
     
    824824      fr_i_tm    (:,:) = fr_i  (:,:) 
    825825      emp_tm     (:,:) = emp   (:,:) 
    826       emps_tm    (:,:) = emps  (:,:) 
     826      emps_tm    (:,:) = sfx   (:,:) 
    827827      qsr_tm     (:,:) = qsr   (:,:) 
    828828      wndm_tm    (:,:) = wndm  (:,:) 
Note: See TracChangeset for help on using the changeset viewer.