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 8214 for branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/NEMO/OPA_SRC – NEMO

Ignore:
Timestamp:
2017-06-25T11:54:36+02:00 (7 years ago)
Author:
gm
Message:

#1883 (HPC-09) - correction of minor issues

Location:
branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/NEMO/OPA_SRC
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/NEMO/OPA_SRC/CRS/crsfld.F90

    r8143 r8214  
    7070      CALL wrk_alloc( jpi,jpj,jpk,   ze3t, ze3w ) 
    7171      CALL wrk_alloc( jpi,jpj,jpk,   ze3u, ze3v ) 
    72       CALL wrk_alloc( jpi,jpj,jpk,   zt  , zs  ,z3d ) 
     72      CALL wrk_alloc( jpi,jpj,jpk,   zt  , zs  , z3d ) 
    7373      ! 
    7474      CALL wrk_alloc( jpi_crs,jpj_crs,jpk,   zt_crs, zs_crs ) 

  • branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

    r8143 r8214  
    11231123      IF( lrst_oce .AND.ln_bt_fw )   CALL ts_rst( kt, 'WRITE' ) 
    11241124      ! 
    1125       IF( ln_wd ) DEALLOCATE( zcpx, zcpy ) 
     1125      IF( ln_wd )   DEALLOCATE( zcpx, zcpy ) 
    11261126      ! 
    11271127      IF ( ln_diatmb ) THEN 

  • branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/NEMO/OPA_SRC/LBC/lbclnk.F90

    r7904 r8214  
    22   !!====================================================================== 
    33   !!                       ***  MODULE  lbclnk  *** 
    4    !! NEMO        : lateral boundary conditions 
     4   !! NEMO : lateral boundary conditions --- MPP exchanges 
    55   !!===================================================================== 
    66   !! History :  OPA  ! 1997-06  (G. Madec)  Original code 

  • branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/NEMO/OPA_SRC/TRD/trdken.F90

    r8143 r8214  
    1717   USE zdf_oce        ! ocean vertical physics variables 
    1818   USE zdfdrg         ! ocean vertical physics: bottom friction 
    19 !!gm   USE dynhpg          ! hydrostatic pressure gradient    
    2019   USE ldftra         ! ocean active tracers lateral physics 
    2120   USE trd_oce        ! trends: ocean variables 

  • branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r8160 r8214  
    5555   USE ldfdyn         ! lateral viscosity setting      (ldfdyn_init routine) 
    5656   USE ldftra         ! lateral diffusivity setting    (ldftra_init routine) 
    57 !!gm   USE zdfphy         ! vertical physics manager      (zdf_phy_init routine) 
    5857   USE trdini         ! dyn/tra trends initialization     (trd_init routine) 
    5958   USE asminc         ! assimilation increments      

  • branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/NEMO/OPA_SRC/step.F90

    r8178 r8214  
    195195      ENDIF 
    196196 
    197       IF( .NOT.ln_drgimp)   CALL dyn_bfr       ( kstp )  ! bottom friction 
     197      IF( .NOT.ln_drgimp)   CALL dyn_bfr    ( kstp )  ! bottom friction 
    198198       
    199199                         CALL dyn_zdf       ( kstp )  ! vertical diffusion 
Note: See TracChangeset for help on using the changeset viewer.