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 2239 – NEMO

Changeset 2239


Ignore:
Timestamp:
2010-10-13T00:03:11+02:00 (14 years ago)
Author:
rblod
Message:

First commit to compile ORCA2_LIM for next nemo v3.3

Location:
branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC
Files:
11 edited

Legend:

Unmodified
Added
Removed

  • branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/ASM/asminc.F90

    r2218 r2239  
    4747      & ub, un, ua,    & 
    4848      & vb, vn, va,    & 
    49       & tb, tn, ta,    & 
    50       & sb, sn, sa,    & 
     49      & tsb, tsn, tsa, & 
    5150      & sshb, sshn,    & 
    5251      & rhd, rhop,     & 
    5352      & rotb, rotn,    & 
    5453      & hdivb, hdivn,  & 
    55       & gtu, gsu, gru, & 
    56       & gtv, gsv, grv  
     54      & gtsu, gru,    & 
     55      & gtsv, grv  
    5756   USE divcur, ONLY : &   ! Horizontal divergence and relative vorticity 
    5857      & div_cur 
    … …  
    724723            ! Update the tracer tendencies 
    725724            DO jk = 1, jpkm1 
    726                ta(:,:,jk) = ta(:,:,jk) + t_bkginc(:,:,jk) * zincwgt   
    727                sa(:,:,jk) = sa(:,:,jk) + s_bkginc(:,:,jk) * zincwgt 
     725               tsa(:,:,jk,jp_tem) = tsa(:,:,jk,jp_tem) + t_bkginc(:,:,jk) * zincwgt   
     726               tsa(:,:,jk,jp_sal) = tsa(:,:,jk,jp_sal) + s_bkginc(:,:,jk) * zincwgt 
    728727            END DO 
    729728 
    … …  
    733732                  DO jj = 1, jpj 
    734733                     DO ji= 1, jpi 
    735                         sa(ji,jj,jk) = MAX( sa(ji,jj,jk), salfixmin ) 
     734                        tsa(ji,jj,jk,jp_sal) = MAX( tsa(ji,jj,jk,jp_sal), salfixmin ) 
    736735                     END DO 
    737736                  END DO 
    … …  
    758757 
    759758            ! Initialize the now fields with the background + increment 
    760             tn(:,:,:) = t_bkg(:,:,:) + t_bkginc(:,:,:)    
    761             sn(:,:,:) = s_bkg(:,:,:) + s_bkginc(:,:,:)    
     759            tsn(:,:,:,jp_tem) = t_bkg(:,:,:) + t_bkginc(:,:,:)    
     760            tsn(:,:,:,jp_sal) = s_bkg(:,:,:) + s_bkginc(:,:,:)    
    762761 
    763762            ! Optional salinity fix 
    … …  
    766765                  DO jj = 1, jpj 
    767766                     DO ji= 1, jpi 
    768                         sn(ji,jj,jk) = MAX( sn(ji,jj,jk), salfixmin ) 
     767                        tsn(ji,jj,jk,jp_sal) = MAX( tsn(ji,jj,jk,jp_sal), salfixmin ) 
    769768                     END DO 
    770769                  END DO 
    … …  
    772771            ENDIF 
    773772 
    774             tb(:,:,:) = tn(:,:,:)                        ! Update before fields 
    775             sb(:,:,:) = sn(:,:,:) 
    776  
    777             CALL eos( tb, sb, rhd, rhop )                ! Before potential and in situ densities 
     773            tsb(:,:,:,:) = tsn(:,:,:,:)                        ! Update before fields 
     774 
     775            CALL eos( tsb, rhd, rhop )                ! Before potential and in situ densities 
    778776          
    779777#if ! defined key_c1d 
    780778            IF( ln_zps ) & 
    781                &  CALL zps_hde( nit000, tb, sb, rhd,  &  ! Partial steps: before horizontal derivative 
    782                &                gtu, gsu, gru,        &  ! of T, S, rd at the bottom ocean level 
    783                &                gtv, gsv, grv ) 
     779               &  CALL zps_hde( nit000, jpts, tsb,   &  ! Partial steps: before horizontal derivative 
     780               &                gtsu, gtsv, rhd,        &  ! of T, S, rd at the bottom ocean level 
     781               &                gru , grv ) 
    784782#endif 
    785783 

  • branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/ASM/asmtrj.F90

    r2128 r2239  
    224224#if defined key_ldfslp 
    225225            IF(lwp) WRITE(numout,*) ' Compute the slopes of neutral surface...' 
    226             CALL bn2( tb, sb, rn2 )  
     226            CALL bn2( tsb, rn2 )  
    227227            CALL ldf_slp( nit000, rhd, rn2 ) 
    228228#endif 
    … …  
    280280 
    281281END MODULE asmtrj 
    282     
    283     

  • branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/DOM/dom_oce.F90

    r2236 r2239  
    232232   LOGICAL, PUBLIC, PARAMETER ::   lk_agrif = .FALSE.   !: agrif flag 
    233233 
    234    !!---------------------------------------------------------------------- 
    235    !! mpp reproducibility 
    236    !!---------------------------------------------------------------------- 
    237 #if defined key_mpp_rep1 || defined key_mpp_re2 
    238    LOGICAL, PUBLIC, PARAMETER ::   lk_mpp_rep = .TRUE.    !: agrif flag 
    239 #else 
    240    LOGICAL, PUBLIC, PARAMETER ::   lk_mpp_rep = .FALSE.   !: agrif flag 
    241 #endif 
    242  
    243234CONTAINS 
    244235   LOGICAL FUNCTION Agrif_Root() 

  • branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/LDF/ldfslp.F90

    r2236 r2239  
    532532                 ikv  = MIN( mbathy(ji,jj), mbathy(ji  ,jj+1) ) - 1 
    533533                 ! i-gradient of T and S 
    534                  zdit (ji,jj,iku) = gtu(ji,jj) 
    535                  zdis (ji,jj,iku) = gsu(ji,jj) 
     534                 zdit (ji,jj,iku) = gtsu(ji,jj,jp_tem) 
     535                 zdis (ji,jj,iku) = gtsu(ji,jj,jp_sal) 
    536536                 ! j-gradient of T and S 
    537                  zdjt (ji,jj,ikv) = gtv(ji,jj) 
    538                  zdjs (ji,jj,ikv) = gsv(ji,jj) 
     537                 zdjt (ji,jj,ikv) = gtsv(ji,jj,jp_tem) 
     538                 zdjs (ji,jj,ikv) = gtsv(ji,jj,jp_sal) 
    539539# if ! defined key_vectopt_loop   ||   defined key_mpp_omp 
    540540              END DO 

  • branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/SBC/fldread.F90

    r2236 r2239  
    681681         ! build the new filename if climatological data 
    682682         IF( sdjf%cltype == 'monthly' )   WRITE(sdjf%clname, '(a,"_m" ,i2.2)' ) TRIM( sdjf%clrootname ), kmonth   ! add month 
    683       ELSE 
    684          ! build the new filename if climatological data 
    685          IF( sdjf%cltype == 'monthly' )   WRITE(sdjf%clname, '(a,"_m",i2.2)' ) TRIM( sdjf%clrootname ), kmonth   ! add month 
    686683      ENDIF 
    687684      CALL iom_open( sdjf%clname, sdjf%num, ldstop = ldstop, ldiof =  LEN(TRIM(sdjf%wgtname)) > 0 ) 

  • branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90

    r2236 r2239  
    5252 
    5353   PUBLIC sbc_ice_lim_2 ! routine called by sbcmod.F90 
     54 
     55   CHARACTER(len=1) ::   cl_grid = 'B'     ! type of grid used in ice dynamics 
    5456    
    5557   !! * Substitutions 
    … …  
    170172         !  Ice model step  ! 
    171173         ! ---------------- ! 
    172          numit = numit + nn_fsbc                                             ! Ice model time step 
    173  
    174174                                        CALL lim_rst_opn_2  ( kt )      ! Open Ice restart file 
    175175#if ! defined key_c1d 

  • branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/SBC/sbcrnf.F90

    r2236 r2239  
    199199      !!---------------------------------------------------------------------- 
    200200      CHARACTER(len=32) ::   rn_dep_file   ! runoff file name   
    201       INTEGER           ::   inum        ! temporary integers 
    202       INTEGER           ::   ierror   ! temporary integer 
     201      INTEGER           ::   ji, jj, jk    ! dummy loop indices 
     202      INTEGER           ::   ierror, inum  ! temporary integer 
    203203      !!  
    204204      NAMELIST/namsbc_rnf/ cn_dir, ln_rnf_emp, ln_rnf_depth, ln_rnf_temp, ln_rnf_sal,   & 

  • branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/TRA/tradmp.F90

    r2236 r2239  
    9696      REAL(wp) ::   zta, zsa       ! temporary scalars 
    9797      INTEGER ::   ji, jj, jk   ! dummy loop indices 
    98       REAL(wp) ::  zta, zsa 
    9998      REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  ztrdt, ztrds 
    10099      !!---------------------------------------------------------------------- 

  • branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/TRA/trasbc.F90

    r2236 r2239  
    108108      !! 
    109109      INTEGER  ::   ji, jj, jk           ! dummy loop indices   
    110       REAL(wp) ::   zfact, z1_e3t        !  
     110      REAL(wp) ::   zfact, z1_e3t, zsrau,zdep 
    111111      REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  ztrdt, ztrds 
    112112      !!---------------------------------------------------------------------- 

  • branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/step.F90

    r2236 r2239  
    3333#endif 
    3434 
     35   USE zdfgls          ! generic length scale case 
    3536   USE asminc          ! assimilation increments    (tra_asm_inc, dyn_asm_inc routines) 
    3637   USE stpctl          ! time stepping control            (stp_ctl routine) 

  • branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/step_oce.F90

    r2148 r2239  
    9595   USE traswp           ! Swap arrays           (tra_swp, tra_unswp routine) 
    9696 
     97   USE diaobs           ! Observation operator 
     98 
    9799#if defined key_agrif 
    98100   USE agrif_opa_sponge ! Momemtum and tracers sponges 
Note: See TracChangeset for help on using the changeset viewer.