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 6484 for branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/OPA_SRC/DOM/domhgr.F90 – NEMO

Ignore:
Timestamp:
2016-04-19T18:01:48+02:00 (8 years ago)
Author:
flavoni
Message:

update usr_def module, see ticket #1692

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/OPA_SRC/DOM/domhgr.F90

    r6434 r6484  
    297297         ELSE 
    298298            IF(lwp) WRITE(numout,*) '          ln_read_cfg CALL user_defined module' 
    299             CALL usr_def_hgr( nbench , jp_cfg  ,                    & 
    300             &                 ff,                         & 
    301             &                 glamt  , glamu   , glamv   , glamf   ,         & 
    302             &                 gphit  , gphiu   , gphiv   , gphif   ,         & 
    303             &                 e1t    , e1u     , e1v     , e1f     ,         & 
    304             &                 e2t    , e2u     , e2v     , e2f     ,         &  
    305             &                 e1e2u  , e1e2v   , e2_e1u  , e1_e2v     ) 
     299            CALL usr_def_hgr( nbench , jp_cfg, iff   , ff    ,    & 
     300            &                 glamt  , glamu , glamv , glamf ,    & 
     301            &                 gphit  , gphiu , gphiv , gphif ,    & 
     302            &                 e1t    , e1u   , e1v   , e1f   ,    & 
     303            &                 e2t    , e2u   , e2v   , e2f   ,    &  
     304            &                 ie1e2u_v  ) 
    306305         ! 
    307306         ENDIF 
Note: See TracChangeset for help on using the changeset viewer.