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 13762 – NEMO

Changeset 13762


Ignore:
Timestamp:
2020-11-09T19:55:21+01:00 (4 years ago)
Author:
techene
Message:

#2385 set ssh separately from istate variables to remove domqco.F90 duplicates

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

Legend:

Unmodified
Added
Removed

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

    r13295 r13762  
    2727 
    2828   PUBLIC   usr_def_istate   ! called by istate.F90 
     29   PUBLIC   usr_def_ssh      ! called by domqco.F90 
    2930 
    3031   !! * Substitutions 
    … …  
    102103   END SUBROUTINE usr_def_istate 
    103104 
     105 
     106   SUBROUTINE usr_def_ssh( ptmask, pssh ) 
     107      !!---------------------------------------------------------------------- 
     108      !!                   ***  ROUTINE usr_def_ssh  *** 
     109      !!  
     110      !! ** Purpose :   Initialization of ssh 
     111      !!                Here BENCH configuration  
     112      !! 
     113      !! ** Method  :   Set ssh 
     114      !!---------------------------------------------------------------------- 
     115      REAL(wp), DIMENSION(jpi,jpj,jpk)     , INTENT(in   ) ::   ptmask  ! t-point ocean mask   [m] 
     116      REAL(wp), DIMENSION(jpi,jpj)         , INTENT(  out) ::   pssh    ! sea-surface height   [m] 
     117      !!---------------------------------------------------------------------- 
     118      ! 
     119      IF(lwp) WRITE(numout,*) 
     120      IF(lwp) WRITE(numout,*) 'usr_def_ssh : BENCH configuration, analytical definition of initial state' 
     121      ! 
     122      pssh(:,:)   = 0._wp   
     123      ! 
     124   END SUBROUTINE usr_def_ssh 
     125    
    104126   !!====================================================================== 
    105127END MODULE usrdef_istate 

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

    r10074 r13762  
    2525 
    2626   PUBLIC   usr_def_istate   ! called by istate.F90 
     27   PUBLIC   usr_def_ssh      ! called by domqco.F90 
    2728 
    2829   !!---------------------------------------------------------------------- 
    … …  
    6667   END SUBROUTINE usr_def_istate 
    6768 
     69 
     70   SUBROUTINE usr_def_ssh( ptmask, pssh ) 
     71      !!---------------------------------------------------------------------- 
     72      !!                   ***  ROUTINE usr_def_ssh  *** 
     73      !!  
     74      !! ** Purpose :   Initialization of ssh 
     75      !!                Here ISOMIP configuration  
     76      !! 
     77      !! ** Method  :   set ssh 
     78      !!---------------------------------------------------------------------- 
     79      REAL(wp), DIMENSION(jpi,jpj,jpk)     , INTENT(in   ) ::   ptmask  ! t-point ocean mask   [m] 
     80      REAL(wp), DIMENSION(jpi,jpj)         , INTENT(  out) ::   pssh    ! sea-surface height   [m] 
     81      !!---------------------------------------------------------------------- 
     82      ! 
     83      IF(lwp) WRITE(numout,*) 
     84      IF(lwp) WRITE(numout,*) 'usr_def_ssh : ISOMIP configuration, analytical definition of initial state' 
     85      ! 
     86      pssh(:,:)   = 0._wp 
     87      ! 
     88   END SUBROUTINE usr_def_ssh 
     89 
    6890   !!====================================================================== 
    6991END MODULE usrdef_istate 

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

    r12489 r13762  
    2424 
    2525   PUBLIC   usr_def_istate   ! called by istate.F90 
     26   PUBLIC   usr_def_ssh      ! called by domqco.F90 
    2627 
    2728   !!---------------------------------------------------------------------- 
    … …  
    7879   END SUBROUTINE usr_def_istate 
    7980 
     81 
     82   SUBROUTINE usr_def_ssh( ptmask, pssh ) 
     83      !!---------------------------------------------------------------------- 
     84      !!                   ***  ROUTINE usr_def_ssh  *** 
     85      !!  
     86      !! ** Purpose :   Initialization of ssh 
     87      !!                Here LOCK_EXCHANGE configuration  
     88      !! 
     89      !! ** Method  :   set ssh 
     90      !!---------------------------------------------------------------------- 
     91      REAL(wp), DIMENSION(jpi,jpj,jpk)     , INTENT(in   ) ::   ptmask  ! t-point ocean mask   [m] 
     92      REAL(wp), DIMENSION(jpi,jpj)         , INTENT(  out) ::   pssh    ! sea-surface height   [m] 
     93      !!---------------------------------------------------------------------- 
     94      ! 
     95      IF(lwp) WRITE(numout,*) 
     96      IF(lwp) WRITE(numout,*) 'usr_def_ssh : LOCK_EXCHANGE configuration, analytical definition of initial state' 
     97      ! 
     98      pssh(:,:)   = 0._wp 
     99      ! 
     100   END SUBROUTINE usr_def_ssh 
     101 
    80102   !!====================================================================== 
    81103END MODULE usrdef_istate 

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

    r12489 r13762  
    2424 
    2525   PUBLIC   usr_def_istate   ! called by istate.F90 
    26  
     26   PUBLIC   usr_def_ssh      ! called by domqco.F90 
     27    
    2728   !!---------------------------------------------------------------------- 
    2829   !! NEMO/OCE 4.0 , NEMO Consortium (2018) 
    … …  
    7879   END SUBROUTINE usr_def_istate 
    7980 
     81 
     82   SUBROUTINE usr_def_ssh( ptmask, pssh ) 
     83      !!---------------------------------------------------------------------- 
     84      !!                   ***  ROUTINE usr_def_ssh  *** 
     85      !!  
     86      !! ** Purpose :   Initialization of the ssh 
     87      !!                Here  OVERFLOW configuration  
     88      !! 
     89      !! ** Method  :   set ssh 
     90      !!---------------------------------------------------------------------- 
     91      REAL(wp), DIMENSION(jpi,jpj,jpk)     , INTENT(in   ) ::   ptmask  ! t-point ocean mask   [m] 
     92      REAL(wp), DIMENSION(jpi,jpj)         , INTENT(  out) ::   pssh    ! sea-surface height   [m] 
     93      !!---------------------------------------------------------------------- 
     94      ! 
     95      IF(lwp) WRITE(numout,*) 
     96      IF(lwp) WRITE(numout,*) 'usr_def_ssh : OVERFLOW configuration, analytical definition of initial state' 
     97      ! 
     98      pssh(:,:)   = 0._wp 
     99      ! 
     100   END SUBROUTINE usr_def_ssh 
     101 
    80102   !!====================================================================== 
    81103END MODULE usrdef_istate 

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

    r13752 r13762  
    2424 
    2525   PUBLIC   usr_def_istate   ! called in istate.F90 
     26   PUBLIC   usr_def_ssh      ! called by domqco.F90 
    2627 
    2728   !!---------------------------------------------------------------------- 
    … …  
    6768   END SUBROUTINE usr_def_istate 
    6869 
     70 
     71   SUBROUTINE usr_def_ssh( ptmask, pssh ) 
     72      !!---------------------------------------------------------------------- 
     73      !!                   ***  ROUTINE usr_def_ssh  *** 
     74      !!  
     75      !! ** Purpose :   Initialization of ssh 
     76      !!                Here SWG configuration  
     77      !! 
     78      !! ** Method  :   set ssh 
     79      !!---------------------------------------------------------------------- 
     80      REAL(wp), DIMENSION(jpi,jpj,jpk)     , INTENT(in   ) ::   ptmask  ! t-point ocean mask             [m] 
     81      REAL(wp), DIMENSION(jpi,jpj)         , INTENT(  out) ::   pssh    ! sea-surface height 
     82      !!---------------------------------------------------------------------- 
     83      ! 
     84      IF(lwp) WRITE(numout,*) 
     85      IF(lwp) WRITE(numout,*) 'usr_def_ssh : SWG configuration, analytical definition of initial state' 
     86      ! 
     87      pssh(:,:)   = 0._wp        ! ocean at rest 
     88      ! 
     89   END SUBROUTINE usr_def_ssh 
     90 
    6991   !!====================================================================== 
    7092END MODULE usrdef_istate 
Note: See TracChangeset for help on using the changeset viewer.