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 9168 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA – NEMO

Ignore:
Timestamp:
2017-12-23T13:27:17+01:00 (6 years ago)
Author:
gm
Message:

dev_merge_2017: OPA_SRC & CONFIG: remove useless warning when reading namelist_cfg

Location:
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90

    r9094 r9168  
    12411241      REWIND( numnam_ref )              ! Namelist nameos in reference namelist : equation of state 
    12421242      READ  ( numnam_ref, nameos, IOSTAT = ios, ERR = 901 ) 
    1243 901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nameos in reference namelist', lwp ) 
     1243901   IF( ios /= 0 )   CALL ctl_nam ( ios , 'nameos in reference namelist', lwp ) 
    12441244      ! 
    12451245      REWIND( numnam_cfg )              ! Namelist nameos in configuration namelist : equation of state 
    12461246      READ  ( numnam_cfg, nameos, IOSTAT = ios, ERR = 902 ) 
    1247 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nameos in configuration namelist', lwp ) 
     1247902   IF( ios >  0 )  CALL ctl_nam ( ios , 'nameos in configuration namelist', lwp ) 
    12481248      IF(lwm) WRITE( numond, nameos ) 
    12491249      ! 

  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA/traadv.F90

    r9019 r9168  
    200200      REWIND( numnam_cfg )                   ! Namelist namtra_adv in configuration namelist : Tracer advection scheme 
    201201      READ  ( numnam_cfg, namtra_adv, IOSTAT = ios, ERR = 902 ) 
    202 902   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namtra_adv in configuration namelist', lwp ) 
     202902   IF( ios > 0 )   CALL ctl_nam ( ios , 'namtra_adv in configuration namelist', lwp ) 
    203203      IF(lwm) WRITE( numond, namtra_adv ) 
    204204      ! 

  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_mle.F90

    r9124 r9168  
    266266      REWIND( numnam_ref )              ! Namelist namtra_adv_mle in reference namelist : Tracer advection scheme 
    267267      READ  ( numnam_ref, namtra_adv_mle, IOSTAT = ios, ERR = 901) 
    268 901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_adv_mle in reference namelist', lwp ) 
     268901   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namtra_adv_mle in reference namelist', lwp ) 
    269269 
    270270      REWIND( numnam_cfg )              ! Namelist namtra_adv_mle in configuration namelist : Tracer advection scheme 
    271271      READ  ( numnam_cfg, namtra_adv_mle, IOSTAT = ios, ERR = 902 ) 
    272 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_adv_mle in configuration namelist', lwp ) 
     272902   IF( ios >  0 )  CALL ctl_nam ( ios , 'namtra_adv_mle in configuration namelist', lwp ) 
    273273      IF(lwm) WRITE ( numond, namtra_adv_mle ) 
    274274 
    … …  
    278278         WRITE(numout,*) '~~~~~~~~~~~~~~~~' 
    279279         WRITE(numout,*) '   Namelist namtra_adv_mle : mixed layer eddy advection on tracers' 
    280          WRITE(numout,*) '      use mixed layer eddy (MLE, i.e. Fox-Kemper param) (T/F)      ln_mle    = ', ln_mle 
    281          WRITE(numout,*) '      MLE type: =0 standard Fox-Kemper ; =1 new formulation        nn_mle    = ', nn_mle 
    282          WRITE(numout,*) '      magnitude of the MLE (typical value: 0.06 to 0.08)           rn_ce     = ', rn_ce 
    283          WRITE(numout,*) '      scale of ML front (ML radius of deformation) (rn_mle=0)      rn_lf     = ', rn_lf, 'm' 
    284          WRITE(numout,*) '      maximum time scale of MLE                    (rn_mle=0)      rn_time   = ', rn_time, 's' 
    285          WRITE(numout,*) '      reference latitude (degrees) of MLE coef.    (rn_mle=1)      rn_lat    = ', rn_lat, 'deg' 
    286          WRITE(numout,*) '      space interp. of MLD at u-(v-)pts (0=min,1=averaged,2=max)   nn_mld_uv = ', nn_mld_uv 
    287          WRITE(numout,*) '      =1 no MLE in case of convection ; =0 always MLE              nn_conv   = ', nn_conv 
    288          WRITE(numout,*) '      Density difference used to define ML for FK              rn_rho_c_mle  = ', rn_rho_c_mle 
     280         WRITE(numout,*) '      use mixed layer eddy (MLE, i.e. Fox-Kemper param) (T/F)      ln_mle       = ', ln_mle 
     281         WRITE(numout,*) '         MLE type: =0 standard Fox-Kemper ; =1 new formulation        nn_mle    = ', nn_mle 
     282         WRITE(numout,*) '         magnitude of the MLE (typical value: 0.06 to 0.08)           rn_ce     = ', rn_ce 
     283         WRITE(numout,*) '         scale of ML front (ML radius of deformation) (rn_mle=0)      rn_lf     = ', rn_lf, 'm' 
     284         WRITE(numout,*) '         maximum time scale of MLE                    (rn_mle=0)      rn_time   = ', rn_time, 's' 
     285         WRITE(numout,*) '         reference latitude (degrees) of MLE coef.    (rn_mle=1)      rn_lat    = ', rn_lat, 'deg' 
     286         WRITE(numout,*) '         space interp. of MLD at u-(v-)pts (0=min,1=averaged,2=max)   nn_mld_uv = ', nn_mld_uv 
     287         WRITE(numout,*) '         =1 no MLE in case of convection ; =0 always MLE              nn_conv   = ', nn_conv 
     288         WRITE(numout,*) '         Density difference used to define ML for FK              rn_rho_c_mle  = ', rn_rho_c_mle 
    289289      ENDIF 
    290290      ! 

  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA/trabbc.F90

    r9019 r9168  
    139139      REWIND( numnam_cfg )              ! Namelist nambbc in configuration namelist : Bottom momentum boundary condition 
    140140      READ  ( numnam_cfg, nambbc, IOSTAT = ios, ERR = 902 ) 
    141 902   IF( ios /= 0 )   CALL ctl_nam ( ios , 'nambbc in configuration namelist', lwp ) 
     141902   IF( ios > 0 )   CALL ctl_nam ( ios , 'nambbc in configuration namelist', lwp ) 
    142142      IF(lwm) WRITE ( numond, nambbc ) 
    143143      ! 

  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90

    r9124 r9168  
    127127         CALL iom_put( "ahv_bbl", ahv_bbl )   ! bbl diffusive flux j-coef 
    128128         ! 
    129       END IF 
     129      ENDIF 
    130130      ! 
    131131      IF( nn_bbl_adv /= 0 ) THEN                    !* Advective bbl 
    … …  
    140140         CALL iom_put( "voce_bbl", vtr_bbl )  ! bbl j-transport 
    141141         ! 
    142       END IF 
     142      ENDIF 
    143143 
    144144      IF( l_trdtra )   THEN                      ! send the trends for further diagnostics 
    … …  
    489489      REWIND( numnam_cfg )              ! Namelist nambbl in configuration namelist : Bottom boundary layer scheme 
    490490      READ  ( numnam_cfg, nambbl, IOSTAT = ios, ERR = 902 ) 
    491 902   IF( ios /= 0 )   CALL ctl_nam ( ios , 'nambbl in configuration namelist', lwp ) 
     491902   IF( ios > 0 )   CALL ctl_nam ( ios , 'nambbl in configuration namelist', lwp ) 
    492492      IF(lwm) WRITE ( numond, nambbl ) 
    493493      ! 
    … …  
    528528      mbku_d(:,:) = MAX( INT( zmbku(:,:) ), 1 ) ;  mbkv_d(:,:) = MAX( INT( zmbkv(:,:) ), 1 ) 
    529529      ! 
    530                                         !* sign of grad(H) at u- and v-points; zero if grad(H) = 0 
     530      !                             !* sign of grad(H) at u- and v-points; zero if grad(H) = 0 
    531531      mgrhu(:,:) = 0   ;   mgrhv(:,:) = 0 
    532532      DO jj = 1, jpjm1 

  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA/tradmp.F90

    r9019 r9168  
    179179      REWIND( numnam_ref )   ! Namelist namtra_dmp in reference namelist : T & S relaxation 
    180180      READ  ( numnam_ref, namtra_dmp, IOSTAT = ios, ERR = 901) 
    181 901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_dmp in reference namelist', lwp ) 
     181901   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namtra_dmp in reference namelist', lwp ) 
    182182      ! 
    183183      REWIND( numnam_cfg )   ! Namelist namtra_dmp in configuration namelist : T & S relaxation 
    184184      READ  ( numnam_cfg, namtra_dmp, IOSTAT = ios, ERR = 902 ) 
    185 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_dmp in configuration namelist', lwp ) 
     185902   IF( ios >  0 )  CALL ctl_nam ( ios , 'namtra_dmp in configuration namelist', lwp ) 
    186186      IF(lwm) WRITE ( numond, namtra_dmp ) 
    187187      ! 
    … …  
    191191         WRITE(numout,*) '~~~~~~~~~~~~' 
    192192         WRITE(numout,*) '   Namelist namtra_dmp : set relaxation parameters' 
    193          WRITE(numout,*) '      Apply relaxation   or not       ln_tradmp = ', ln_tradmp 
    194          WRITE(numout,*) '      mixed layer damping option      nn_zdmp   = ', nn_zdmp 
    195          WRITE(numout,*) '      Damping file name               cn_resto = ', cn_resto 
     193         WRITE(numout,*) '      Apply relaxation   or not       ln_tradmp   = ', ln_tradmp 
     194         WRITE(numout,*) '         mixed layer damping option      nn_zdmp  = ', nn_zdmp 
     195         WRITE(numout,*) '         Damping file name               cn_resto = ', cn_resto 
    196196         WRITE(numout,*) 
    197197      ENDIF 

  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90

    r9124 r9168  
    340340      REWIND( numnam_cfg )              ! Namelist namtra_qsr in configuration namelist 
    341341      READ  ( numnam_cfg, namtra_qsr, IOSTAT = ios, ERR = 902 ) 
    342 902   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namtra_qsr in configuration namelist', lwp ) 
     342902   IF( ios > 0 )   CALL ctl_nam ( ios , 'namtra_qsr in configuration namelist', lwp ) 
    343343      IF(lwm) WRITE ( numond, namtra_qsr ) 
    344344      ! 
Note: See TracChangeset for help on using the changeset viewer.