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 6101 for branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC – NEMO

Ignore:
Timestamp:
2015-12-17T16:48:41+01:00 (9 years ago)
Author:
cbricaud
Message:

correction of bugs from last update and improvments for CRS

Location:
branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC
Files:
9 edited

Legend:

Unmodified
Added
Removed

  • branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/TRP/trcdmp.F90

    r5602 r6101  
    2424   USE trdtra 
    2525   USE trd_oce 
    26    USE iom 
     26   USE iom , ONLY : iom_open, iom_get, iom_close, jpdom_autoglo 
    2727 
    2828   IMPLICIT NONE 

  • branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/TRP/trcldf_crs.F90

    r5601 r6101  
    219219         IF(lwp) WRITE(numout,*) '          esopa control: use all lateral physics options' 
    220220         nldf = -1 
    221       ENDIF 
    222  
    223       IF( .NOT. ln_trcldf_diff ) THEN 
    224          IF(lwp) WRITE(numout,*) '          No lateral diffusion on passive tracers' 
    225          nldf = -2 
    226221      ENDIF 
    227222 

  • branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/TRP/trcsbc.F90

    r5602 r6101  
    1919   USE trc             ! ocean  passive tracers variables 
    2020   USE prtctl_trc      ! Print control for debbuging 
    21    USE iom 
     21   USE iom, ONLY : iom_varid, iom_get, iom_rstput,jpdom_autoglo 
    2222   USE trd_oce 
    2323   USE trdtra 

  • branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/TRP/trctrp.F90

    r5602 r6101  
    3434   USE zpshde          ! partial step: hor. derivative       (zps_hde routine) 
    3535   USE zpshde_crs      ! partial step: hor. derivative       (zps_hde routine) 
    36    USE dom_oce , ONLY : ln_crs 
     36   USE dom_oce , ONLY : ln_crs, ln_isfcav 
    3737   USE crs     , ONLY : jpi_crs,jpj_crs,wn_crs,ln_crs_top !cbr 
    3838   USE ldfslp_crs 
    39  
    4039#if defined key_agrif 
    4140   USE agrif_top_sponge ! tracers sponges 
    … …  
    111110               CALL zps_hde_crs( kstp, jptra, trn, gtru, gtrv ) 
    112111            ELSE 
    113                IF( ln_isfcav)        & 
     112               IF( ln_isfcav )THEN 
    114113                  CALL zps_hde_isf( kstp, jptra, trn, pgtu=gtru, pgtv=gtrv, pgtui=gtrui, pgtvi=gtrvi )  ! Partial steps: now horizontal gradient of passive 
    115114               ELSE 
    116115                  CALL zps_hde    ( kstp, jptra, trn, gtru, gtrv )   ! Partial steps: now horizontal gradient of passive 
    117116               ENDIF 
     117            ENDIF 
    118118         ENDIF 
    119119                                                                ! tracers at the bottom ocean level 

  • branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/oce_trc.F90

    r5602 r6101  
    7676   USE dom_oce , ONLY : ln_sco => ln_sco 
    7777   USE dom_oce , ONLY : neuler => neuler 
     78   USE dom_oce , ONLY : mikt      => mikt          !: f-points (m) 
    7879 
    7980   USE crs,  ONLY : mi0 => mi0  
    … …  
    282283   USE dom_oce , ONLY :   mbku      => mbku          !: f-points (m) 
    283284   USE dom_oce , ONLY :   mbkv      => mbkv          !: f-points (m) 
     285   USE dom_oce , ONLY :   mikt      => mikt          !: f-points (m) 
    284286 
    285287   !* IO manager * 
    … …  
    401403#endif 
    402404 
     405 
     406   USE dom_oce , ONLY : ndastp 
     407   USE sbc_oce , ONLY : nn_ice_embd 
     408   USE sbc_oce , ONLY : ln_cpl 
     409   USE sbc_oce , ONLY : ncpl_qsr_freq 
     410 
    403411#else 
    404412   !!---------------------------------------------------------------------- 

  • branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/trcdta.F90

    r5602 r6101  
    1919   USE oce_trc       !  shared variables between ocean and passive tracers 
    2020   USE trc           !  passive tracers common variables 
     21!   USE iom           !  I/O manager 
    2122   USE lib_mpp       !  MPP library 
    2223   USE fldread       !  read input fields 

  • branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/trcini.F90

    r5602 r6101  
    2525   USE trcini_my_trc   ! MY_TRC   initialisation 
    2626   USE trcdta          ! initialisation from files 
    27    USE zpshde,ONLY: zps_hde    ! partial step: hor. derivative   (zps_hde routine) 
     27   USE zpshde,ONLY: zps_hde, zps_hde_isf    ! partial step: hor. derivative   (zps_hde routine) 
    2828   USE zpshde_crs      ! partial step: hor. derivative   (zps_hde routine) 
    2929   USE prtctl_trc      ! Print control passive tracers (prt_ctl_trc_init routine) 
    3030   USE trcsub          ! variables to substep passive tracers 
    3131   USE lib_mpp         ! distribued memory computing library 
    32    USE sbc_oce, ONLY : ltrcdm2dc 
    3332   USE crs    , ONLY : ln_crs 
    34    USE dom_oce, ONLY : nn_cla 
     33   USE dom_oce, ONLY : nn_cla, ln_isfcav 
    3534   USE trcice          ! tracers in sea ice 
     35   USE sbc_oce 
    3636  
    3737   IMPLICIT NONE 
    … …  
    148148  
    149149      tra(:,:,:,:) = 0._wp 
    150       IF( ln_zps .AND. .NOT. lk_c1d )THEN              ! Partial steps: before horizontal gradient of passive 
    151          IF( ln_crs )  THEN 
    152             CALL zps_hde_crs( nit000, jptra, trn, gtru, gtrv ) 
    153          ELSE 
    154             IF( ln_zps .AND. .NOT. lk_c1d .AND. .NOT. ln_isfcav )   &              ! Partial steps: before horizontal gradient of passive 
    155             &    CALL zps_hde    ( nit000, jptra, trn, gtru, gtrv  )  ! Partial steps: before horizontal gradient 
    156             IF( ln_zps .AND. .NOT. lk_c1d .AND.       ln_isfcav )   & 
    157             &    CALL zps_hde_isf( nit000, jptra, trn, pgtu=gtru, pgtv=gtrv, pgtui=gtrui, pgtvi=gtrvi )       ! tracers at the bottom ocean level 
    158          ENDIF 
     150      IF( ln_crs )  THEN 
     151         CALL zps_hde_crs( nit000, jptra, trn, gtru, gtrv ) 
     152      ELSE 
     153         IF( ln_zps .AND. .NOT. lk_c1d .AND. .NOT. ln_isfcav )   &              ! Partial steps: before horizontal gradient of passive 
     154         &    CALL zps_hde    ( nit000, jptra, trn, gtru, gtrv  )  ! Partial steps: before horizontal gradient 
     155         IF( ln_zps .AND. .NOT. lk_c1d .AND.       ln_isfcav )   & 
     156         &    CALL zps_hde_isf( nit000, jptra, trn, pgtu=gtru, pgtv=gtrv, pgtui=gtrui, pgtvi=gtrvi )       ! tracers at the bottom ocean level 
    159157      ENDIF 
    160158 

  • branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/trcstp.F90

    r5602 r6101  
    1111   !!---------------------------------------------------------------------- 
    1212   USE oce_trc          ! ocean dynamics and active tracers variables 
    13    USE sbc_oce , ONLY : ltrcdm2dc,qsr_mean 
    1413   USE trc 
    1514   USE trctrp           ! passive tracers transport 
    … …  
    2423   USE in_out_manager 
    2524   USE trcsub 
    26    USE dom_oce, ONLY : nday, nmonth, nyear 
     25   USE dom_oce, ONLY : nday, nmonth, nyear, nsec1jan000, nsec_year 
     26   !USE sbc_oce 
    2727 
    2828   IMPLICIT NONE 

  • branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/trcwri.F90

    r3750 r6101  
    1515   USE oce_trc     ! shared variables between ocean and passive tracers 
    1616   USE trc         ! passive tracers common variables  
    17    USE iom         ! I/O manager 
     17!   USE iom         ! I/O manager 
    1818   USE dianam      ! Output file name 
    1919   USE trcwri_pisces 
Note: See TracChangeset for help on using the changeset viewer.