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

Changeset 7164


Ignore:
Timestamp:
2016-11-01T15:49:45+01:00 (8 years ago)
Author:
gm
Message:

#1692 - branch SIMPLIF_2_usrdef: comment update only

Location:
branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/CONFIG/ISOMIP/MY_SRC/usrdef_sbc.F90

    r7112 r7164  
    7070         !          
    7171      ENDIF 
    72  
     72      ! 
    7373   END SUBROUTINE usr_def_sbc 
    7474 
  • branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/CONFIG/LOCK_EXCHANGE/MY_SRC/usrdef_sbc.F90

    r6923 r7164  
    7070         !          
    7171      ENDIF 
    72  
     72      ! 
    7373   END SUBROUTINE usr_def_sbc 
    7474 
  • branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/CONFIG/OVERFLOW/MY_SRC/usrdef_sbc.F90

    r6923 r7164  
    7070         !          
    7171      ENDIF 
    72  
     72      ! 
    7373   END SUBROUTINE usr_def_sbc 
    7474 
  • branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/OPA_SRC/USR/usrdef_zgr.F90

    r6923 r7164  
    9797      !!                   ***  ROUTINE zgr_z  *** 
    9898      !! 
    99       !! ** Purpose :   set the depth of model levels and the resulting  
     99      !! ** Purpose :   set the 1D depth of model levels and the resulting  
    100100      !!              vertical scale factors. 
    101101      !! 
     
    127127      IF( nn_timing == 1 )  CALL timing_start('zgr_z') 
    128128      ! 
    129       ! Set variables from parameters 
    130       ! ------------------------------ 
     129      ! Set parameters of z(k) function 
     130      ! ------------------------------- 
    131131      zsur = -2033.194295283385_wp        
    132132      za0  =   155.8325369664153_wp  
     
    135135      zacr =     5.0_wp        
    136136      ! 
    137       IF(lwp) THEN                         ! Parameter print 
     137      IF(lwp) THEN            ! Parameter print 
    138138         WRITE(numout,*) 
    139139         WRITE(numout,*) '    zgr_z   : Reference vertical z-coordinates ' 
     
    147147      ENDIF 
    148148 
    149  
    150       ! Reference z-coordinate (depth - scale factor at T- and W-points)   ! Madec & Imbard 1996 function 
    151       ! ---------------------- 
    152       DO jk = 1, jpk 
     149      ! 
     150      ! 1D Reference z-coordinate    (using Madec & Imbard 1996 function) 
     151      ! ------------------------- 
     152      ! 
     153      DO jk = 1, jpk          ! depth at T and W-points 
    153154         zw = REAL( jk , wp ) 
    154155         zt = REAL( jk , wp ) + 0.5_wp 
     
    203204      !!                   k_bot = jpk-1 except along north, south, east and west boundaries 
    204205      !! 
    205       !! ** Action  : - k_top : first ocean level index 
    206       !!              - k_bot : last  ocean level index 
    207       !!---------------------------------------------------------------------- 
    208       INTEGER , DIMENSION(:,:), INTENT(out) ::   k_top , k_bot   ! first & last ocean level 
     206      !! ** Action  : - k_top : first wet ocean level index 
     207      !!              - k_bot : last  wet ocean level index 
     208      !!---------------------------------------------------------------------- 
     209      INTEGER , DIMENSION(:,:), INTENT(out) ::   k_top , k_bot   ! first & last wet ocean level 
    209210      ! 
    210211      REAL(wp), DIMENSION(jpi,jpj) ::   z2d   ! 2D local workspace 
     
    212213      ! 
    213214      IF(lwp) WRITE(numout,*) 
    214       IF(lwp) WRITE(numout,*) '    zgr_top_bot : defines the top and bottom ocean levels.' 
     215      IF(lwp) WRITE(numout,*) '    zgr_top_bot : defines the top and bottom wet ocean levels.' 
    215216      IF(lwp) WRITE(numout,*) '    ~~~~~~~~~~~' 
    216217      IF(lwp) WRITE(numout,*) '       GYRE case : closed flat box ocean without ocean cavities' 
Note: See TracChangeset for help on using the changeset viewer.