Changeset 13599 for NEMO


Ignore:
Timestamp:
2020-10-14T17:45:46+02:00 (11 months ago)
Author:
techene
Message:

#2385 add some comments and cleaning

Location:
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/tests/AM98/MY_SRC
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/tests/AM98/MY_SRC/usrdef_hgr.F90

    r13503 r13599  
    77   !! User defined :   mesh and Coriolis parameter of a user configuration 
    88   !!====================================================================== 
    9    !! History :  4.0 ! 2016-03  (S. Flavoni)  
     9   !! History :  4.0  ! 2016-03  (S. Flavoni) 
     10   !!             -   ! 2020-03  (A. Nasser) Shallow Water Eq. configuration 
    1011   !!---------------------------------------------------------------------- 
    1112 
  • NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/tests/AM98/MY_SRC/usrdef_istate.F90

    r13503 r13599  
    77   !! User defined : set the initial state of a user configuration 
    88   !!====================================================================== 
    9    !! History :  4.0 ! 2016-03  (S. Flavoni) Original code 
     9   !! History :  4.0  ! 2016-03  (S. Flavoni) Original code 
     10   !!             -   ! 2020-03  (A. Nasser) Shallow Water Eq. configuration 
    1011   !!---------------------------------------------------------------------- 
    1112 
     
    1314   !!  usr_def_istate : initial state in Temperature and salinity 
    1415   !!---------------------------------------------------------------------- 
    15    USE par_oce        ! ocean space and time domain 
     16   USE par_oce        ! ocean space and time domain master parameters 
    1617   USE phycst         ! physical constants 
    1718   ! 
    1819   USE in_out_manager ! I/O manager 
    1920   USE lib_mpp        ! MPP library 
    20     
     21 
    2122   IMPLICIT NONE 
    2223   PRIVATE 
     
    4344      REAL(wp), DIMENSION(jpi,jpj,jpk)     , INTENT(in   ) ::   pdept   ! depth of t-point               [m] 
    4445      REAL(wp), DIMENSION(jpi,jpj,jpk)     , INTENT(in   ) ::   ptmask  ! t-point ocean mask             [m] 
     46      ! 
    4547      REAL(wp), DIMENSION(jpi,jpj,jpk,jpts), INTENT(  out) ::   pts     ! T & S fields      [Celsius ; g/kg] 
    4648      REAL(wp), DIMENSION(jpi,jpj,jpk)     , INTENT(  out) ::   pu      ! i-component of the velocity  [m/s]  
     
    5557      IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~~~   Ocean at rest, with an horizontally uniform T and S profiles' 
    5658      ! 
    57       pu  (:,:,:) = 0._wp        ! ocean at rest 
    58       pv  (:,:,:) = 0._wp 
    59       pssh(:,:)   = 0._wp 
    60 !!an    
    61        IF(lwp) WRITE(numout,*) "end istate" 
    62         call flush(numout) 
     59      pu  (:,:,:)   = 0._wp        ! ocean at rest 
     60      pv  (:,:,:)   = 0._wp 
     61      pssh(:,:)     = 0._wp 
     62      ts  (:,:,:,:) = 0._wp            ! not used in SWE 
    6363 
     64      IF(lwp) WRITE(numout,*) "end istate" 
     65      CALL FLUSH(numout) 
    6466      !    
    6567   END SUBROUTINE usr_def_istate 
  • NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/tests/AM98/MY_SRC/usrdef_nam.F90

    r13503 r13599  
    88   !!====================================================================== 
    99   !! History :  4.0  ! 2016-03  (S. Flavoni, G. Madec)  Original code 
     10   !!             -   ! 2020-03  (A. Nasser) Shallow Water Eq. configuration 
    1011   !!---------------------------------------------------------------------- 
    1112 
  • NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/tests/AM98/MY_SRC/usrdef_sbc.F90

    r13503 r13599  
    33   !!                     ***  MODULE  usrdef_sbc  *** 
    44   !! 
    5    !!                     ===  GYRE configuration  === 
     5   !!                     ===  AM98 configuration  === 
    66   !! 
    77   !! User defined :   surface forcing of a user configuration 
    88   !!====================================================================== 
    9    !! History :  4.0   ! 2016-03  (S. Flavoni, G. Madec)  user defined interface 
     9   !! History :  4.0  ! 2016-03  (S. Flavoni, G. Madec)  user defined interface 
     10   !!             -   ! 2020-03  (A. Nasser) Shallow Water Eq. configuration 
    1011   !!---------------------------------------------------------------------- 
    1112 
     
    2223   USE lib_mpp        ! distribued memory computing library 
    2324   USE lbclnk         ! ocean lateral boundary conditions (or mpp link) 
    24    USE lib_fortran    ! 
     25   USE lib_fortran    ! Fortran library 
    2526 
    2627   IMPLICIT NONE 
     
    4041   SUBROUTINE usrdef_sbc_oce( kt, Kbb ) 
    4142      !!--------------------------------------------------------------------- 
    42       !!                    ***  ROUTINE usrdef_sbc  *** 
     43      !!                    ***  ROUTINE usrdef_sbc_oce  *** 
    4344      !!               
    4445      !! ** Purpose :   provide at each time-step the GYRE surface boundary 
     
    5152      !!                   utau, vtau, taum, wndm, qns, qsr, emp, sfx 
    5253      !! 
    53       !! Reference : Hazeleger, W., and S. Drijfhout, JPO, 30, 677-695, 2000. 
    5454      !!---------------------------------------------------------------------- 
    5555      INTEGER, INTENT(in) ::   kt   ! ocean time step 
  • NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/tests/AM98/MY_SRC/usrdef_zgr.F90

    r13503 r13599  
    88   !!====================================================================== 
    99   !! History :  4.0  ! 2016-06  (G. Madec)  Original code 
     10   !!             -   ! 2020-03  (A. Nasser) Shallow Water Eq. configuration 
    1011   !!---------------------------------------------------------------------- 
    1112 
     
    159160      ! 
    160161   END SUBROUTINE zgr_z 
    161  
    162  
    163162 
    164163 
Note: See TracChangeset for help on using the changeset viewer.