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

#2385 add some comments and cleaning

File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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 
Note: See TracChangeset for help on using the changeset viewer.