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 4596 for branches/2014/dev_CNRS0_NOC1_LDF/NEMOGCM/NEMO/OPA_SRC/TRD/trdmod.F90 – NEMO

Ignore:
Timestamp:
2014-03-26T12:02:30+01:00 (10 years ago)
Author:
gm
Message:

#1260: LDF simplification + bilap iso-neutral for TRA and GYRE

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2014/dev_CNRS0_NOC1_LDF/NEMOGCM/NEMO/OPA_SRC/TRD/trdmod.F90

    r4147 r4596  
    1717   USE zdf_oce                 ! ocean vertical physics variables 
    1818   USE trdmod_oce              ! ocean variables trends 
    19    USE ldftra_oce              ! ocean active tracers lateral physics 
     19   USE ldftra                  ! lateral physics: eddy diffusivity 
     20   USE ldfslp                  ! lateral physics: slope of iso-neutral surfaces 
    2021   USE sbc_oce                 ! surface boundary condition: ocean 
    2122   USE phycst                  ! physical constants 
    … …  
    252253      USE in_out_manager          ! I/O manager 
    253254      USE lib_mpp                 ! MPP library 
    254       !!     
     255      ! 
     256      INTEGER  ::   ios           ! Local integer output status for namelist read 
     257      ! 
    255258      NAMELIST/namtrd/ nn_trd, nn_ctls, cn_trdrst_in, cn_trdrst_out, ln_trdmld_restart, rn_ucf, ln_trdmld_instant 
    256       INTEGER  ::   ios           ! Local integer output status for namelist read 
    257       !!---------------------------------------------------------------------- 
    258  
     259      !!---------------------------------------------------------------------- 
     260      ! 
    259261      IF( l_trdtra .OR. l_trddyn )   THEN 
    260   
     262         ! 
    261263         REWIND( numnam_ref )              ! Namelist namtrd in reference namelist : Diagnostics: trends 
    262264         READ  ( numnam_ref, namtrd, IOSTAT = ios, ERR = 901) 
    263 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd in reference namelist', lwp ) 
    264  
     265901      IF( ios /= 0 )   CALL ctl_nam ( ios , 'namtrd in reference namelist', lwp ) 
     266         ! 
    265267         REWIND( numnam_cfg )              ! Namelist namtrd in configuration namelist : Diagnostics: trends 
    266268         READ  ( numnam_cfg, namtrd, IOSTAT = ios, ERR = 902 ) 
    267 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd in configuration namelist', lwp ) 
     269902      IF( ios /= 0 )   CALL ctl_nam ( ios , 'namtrd in configuration namelist', lwp ) 
    268270         WRITE ( numond, namtrd ) 
    269  
     271         ! 
    270272         IF(lwp) THEN 
    271273            WRITE(numout,*) 
Note: See TracChangeset for help on using the changeset viewer.