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

Timestamp:

2020-10-14T17:45:46+02:00 (5 months ago)

Author:

techene

Message:

#2385 add some comments and cleaning

File:

• NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/tests/AM98/MY_SRC/usrdef_sbc.F90 (modified) (4 diffs)

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