Changeset 13599 for NEMO/branches/2020

Timestamp:

2020-10-14T17:45:46+02:00 (4 years 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:

• usrdef_hgr.F90 (modified) (1 diff)
• usrdef_istate.F90 (modified) (4 diffs)
• usrdef_nam.F90 (modified) (1 diff)
• usrdef_sbc.F90 (modified) (4 diffs)
• usrdef_zgr.F90 (modified) (2 diffs)

NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/tests/AM98/MY_SRC/usrdef_hgr.F90

@@ -7 +7 @@
    !! User defined :   mesh and Coriolis parameter of a user configuration
    !!======================================================================
-   !! History :  4.0 ! 2016-03  (S. Flavoni) 
+   !! History :  4.0  ! 2016-03  (S. Flavoni)
+   !!             -   ! 2020-03  (A. Nasser) Shallow Water Eq. configuration
    !!----------------------------------------------------------------------
 

NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/tests/AM98/MY_SRC/usrdef_istate.F90

@@ -7 +7 @@
    !! User defined : set the initial state of a user configuration
    !!======================================================================
-   !! History :  4.0 ! 2016-03  (S. Flavoni) Original code
+   !! History :  4.0  ! 2016-03  (S. Flavoni) Original code
+   !!             -   ! 2020-03  (A. Nasser) Shallow Water Eq. configuration
    !!----------------------------------------------------------------------
 
@@ -13 +14 @@
    !!  usr_def_istate : initial state in Temperature and salinity
    !!----------------------------------------------------------------------
-   USE par_oce        ! ocean space and time domain
+   USE par_oce        ! ocean space and time domain master parameters
    USE phycst         ! physical constants
    !
    USE in_out_manager ! I/O manager
    USE lib_mpp        ! MPP library
-   
+
    IMPLICIT NONE
    PRIVATE
@@ -43 +44 @@
       REAL(wp), DIMENSION(jpi,jpj,jpk)     , INTENT(in   ) ::   pdept   ! depth of t-point               [m]
       REAL(wp), DIMENSION(jpi,jpj,jpk)     , INTENT(in   ) ::   ptmask  ! t-point ocean mask             [m]
+      !
       REAL(wp), DIMENSION(jpi,jpj,jpk,jpts), INTENT(  out) ::   pts     ! T & S fields      [Celsius ; g/kg]
       REAL(wp), DIMENSION(jpi,jpj,jpk)     , INTENT(  out) ::   pu      ! i-component of the velocity  [m/s] 
@@ -55 +57 @@
       IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~~~   Ocean at rest, with an horizontally uniform T and S profiles'
       !
-      pu  (:,:,:) = 0._wp        ! ocean at rest
-      pv  (:,:,:) = 0._wp
-      pssh(:,:)   = 0._wp
-!!an   
-       IF(lwp) WRITE(numout,*) "end istate"
-        call flush(numout)
+      pu  (:,:,:)   = 0._wp        ! ocean at rest
+      pv  (:,:,:)   = 0._wp
+      pssh(:,:)     = 0._wp
+      ts  (:,:,:,:) = 0._wp            ! not used in SWE
 
+      IF(lwp) WRITE(numout,*) "end istate"
+      CALL FLUSH(numout)
       !   
    END SUBROUTINE usr_def_istate

NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/tests/AM98/MY_SRC/usrdef_nam.F90

@@ -8 +8 @@
    !!======================================================================
    !! History :  4.0  ! 2016-03  (S. Flavoni, G. Madec)  Original code
+   !!             -   ! 2020-03  (A. Nasser) Shallow Water Eq. configuration
    !!----------------------------------------------------------------------
 

NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/tests/AM98/MY_SRC/usrdef_sbc.F90

@@ -3 +3 @@
    !!                     ***  MODULE  usrdef_sbc  ***
    !!
-   !!                     ===  GYRE configuration  ===
+   !!                     ===  AM98 configuration  ===
    !!
    !! User defined :   surface forcing of a user configuration
    !!======================================================================
-   !! History :  4.0   ! 2016-03  (S. Flavoni, G. Madec)  user defined interface
+   !! History :  4.0  ! 2016-03  (S. Flavoni, G. Madec)  user defined interface
+   !!             -   ! 2020-03  (A. Nasser) Shallow Water Eq. configuration
    !!----------------------------------------------------------------------
 
@@ -22 +23 @@
    USE lib_mpp        ! distribued memory computing library
    USE lbclnk         ! ocean lateral boundary conditions (or mpp link)
-   USE lib_fortran    !
+   USE lib_fortran    ! Fortran library
 
    IMPLICIT NONE
@@ -40 +41 @@
    SUBROUTINE usrdef_sbc_oce( kt, Kbb )
       !!---------------------------------------------------------------------
-      !!                    ***  ROUTINE usrdef_sbc  ***
+      !!                    ***  ROUTINE usrdef_sbc_oce  ***
       !!              
       !! ** Purpose :   provide at each time-step the GYRE surface boundary
@@ -51 +52 @@
       !!                   utau, vtau, taum, wndm, qns, qsr, emp, sfx
       !!
-      !! Reference : Hazeleger, W., and S. Drijfhout, JPO, 30, 677-695, 2000.
       !!----------------------------------------------------------------------
       INTEGER, INTENT(in) ::   kt   ! ocean time step

NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/tests/AM98/MY_SRC/usrdef_zgr.F90

@@ -8 +8 @@
    !!======================================================================
    !! History :  4.0  ! 2016-06  (G. Madec)  Original code
+   !!             -   ! 2020-03  (A. Nasser) Shallow Water Eq. configuration
    !!----------------------------------------------------------------------
 
@@ -159 +160 @@
       !
    END SUBROUTINE zgr_z
-
-