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 13005 for NEMO/branches/2020/dev_r12527_Gurvan_ShallowWater/src/SWE/dynldf_lap_blp.F90 – NEMO

Ignore:
Timestamp:
2020-06-02T17:46:26+02:00 (4 years ago)
Author:
gm
Message:

ADE and more options to AM98 config

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r12527_Gurvan_ShallowWater/src/SWE/dynldf_lap_blp.F90

    r12822 r13005  
    2020   USE in_out_manager ! I/O manager 
    2121   USE lbclnk         ! ocean lateral boundary conditions (or mpp link) 
    22  
     22   USE lib_mpp        ! MPP library 
     23   ! 
     24   USE usrdef_nam , ONLY : nn_dynldf_lap_typ    ! use laplacian parameter 
     25   ! 
    2326   IMPLICIT NONE 
    2427   PRIVATE 
     
    3134   INTEGER, PUBLIC, PARAMETER ::   np_dynldf_lap_symN = 3         ! symmetric laplacian (cartesian) 
    3235    
    33    INTEGER, PUBLIC, PARAMETER ::   ln_dynldf_lap_typ = 1         ! choose type of laplacian (ideally from namelist) 
     36   !INTEGER, PUBLIC, PARAMETER ::   nn_dynldf_lap_typ = 1         ! choose type of laplacian (ideally from namelist) 
    3437!!anSYM 
    3538   !! * Substitutions 
     
    7780         WRITE(numout,*) 'dyn_ldf : iso-level harmonic (laplacian) operator, pass=', kpass 
    7881         WRITE(numout,*) '~~~~~~~ ' 
    79          WRITE(numout,*) '                  ln_dynldf_lap_typ = ', ln_dynldf_lap_typ 
    80          SELECT CASE( ln_dynldf_lap_typ )             ! print the choice of operator 
     82         WRITE(numout,*) '                  nn_dynldf_lap_typ = ', nn_dynldf_lap_typ 
     83         SELECT CASE( nn_dynldf_lap_typ )             ! print the choice of operator 
    8184         CASE( np_dynldf_lap_rot )   ;   WRITE(numout,*) '   ==>>>   div-rot   laplacian' 
    8285         CASE( np_dynldf_lap_sym )   ;   WRITE(numout,*) '   ==>>>   symmetric laplacian (covariant form)' 
    83          CASE( np_dynldf_lap_symN)   ;   WRITE(numout,*) '   ==>>>   symmetric laplacian (simple form)' 
     86         CASE( np_dynldf_lap_symN)   ;   WRITE(numout,*) '   ==>>>   symmetric laplacian (cartesian form)' 
    8487         END SELECT 
    8588      ENDIF 
     
    8992      ENDIF 
    9093      ! 
    91       SELECT CASE( ln_dynldf_lap_typ )   
     94      SELECT CASE( nn_dynldf_lap_typ )   
    9295         !               
    9396         CASE ( np_dynldf_lap_rot )       !==  Vorticity-Divergence form  ==! 
     
    157160            END DO                                           !   End of slab 
    158161            ! 
    159          CASE ( np_dynldf_lap_symN )       !==  Symmetric form  ==!   (naive way) 
     162         CASE ( np_dynldf_lap_symN )       !==  Symmetric form  ==!   (cartesian way) 
    160163            ! 
    161164            DO jk = 1, jpkm1                                 ! Horizontal slab 
     
    190193            !   
    191194         CASE DEFAULT                                     ! error 
    192             CALL ctl_stop('STOP','dyn_ldf_lap: wrong value for ln_dynldf_lap_typ'  ) 
     195            CALL ctl_stop('STOP','dyn_ldf_lap: wrong value for nn_dynldf_lap_typ'  ) 
    193196         END SELECT 
    194197         ! 
Note: See TracChangeset for help on using the changeset viewer.