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 12276 for NEMO/trunk/src/OCE/TRA – NEMO

Ignore:
Timestamp:
2019-12-20T12:14:26+01:00 (4 years ago)
Author:
cetlod
Message:

trunk : merge in some cmip6 diagnostics into the trunk before copying it to release-4.0.2(-head). SETTE tests are OK and the is no difference with the revision 12248

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/trunk/src/OCE/TRA/trabbc.F90

    r11993 r12276  
    100100      ENDIF 
    101101      ! 
     102      CALL iom_put ( "hfgeou" , rau0_rcp * qgh_trd0(:,:) ) 
     103      ! 
    102104      IF(ln_ctl)   CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' bbc  - Ta: ', mask1=tmask, clinfo3='tra-ta' ) 
    103105      ! 
    … …  
    133135      !!---------------------------------------------------------------------- 
    134136      ! 
    135       REWIND( numnam_ref )              ! Namelist nambbc in reference namelist : Bottom momentum boundary condition 
     137      REWIND( numnam_ref ) 
    136138      READ  ( numnam_ref, nambbc, IOSTAT = ios, ERR = 901) 
    137139901   IF( ios /= 0 )   CALL ctl_nam ( ios , 'nambbc in reference namelist' ) 
    138140      ! 
    139       REWIND( numnam_cfg )              ! Namelist nambbc in configuration namelist : Bottom momentum boundary condition 
     141      REWIND( numnam_cfg ) 
    140142      READ  ( numnam_cfg, nambbc, IOSTAT = ios, ERR = 902 ) 
    141143902   IF( ios >  0 )   CALL ctl_nam ( ios , 'nambbc in configuration namelist' ) 
Note: See TracChangeset for help on using the changeset viewer.