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 15637 – NEMO

Changeset 15637


Ignore:
Timestamp:
2022-01-12T17:50:19+01:00 (2 years ago)
Author:
hadjt
Message:

DIA/diaharm.F90
DIA/diaharm_fast.F90
DIU/diurnal_bulk.F90
DOM/dommsk.F90
SBC/sbcflx.F90
SBC/tideini.F90

Initialise namelist string arrays so output.namelist.dyn does not contain nul values

output namelist in src/OCE/DIU/diurnal_bulk.F90

Location:
NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/DIA/diaharm.F90

    r14075 r15637  
    7373      !!---------------------------------------------------------------------- 
    7474 
     75      !JT remove nul from output.namelist.dyn 
     76      DO jh = 1,jpmax_harmo  
     77          tname(jh) = '' 
     78      END DO 
     79      !JT remove nul from output.namelist.dyn 
     80 
    7581      IF(lwp) THEN 
    7682         WRITE(numout,*) 

  • NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/DIA/diaharm_fast.F90

    r15614 r15637  
    378378               & ln_diaharm_postproc_vel,ln_diaharm_baroc3dvel_only, ln_diaharm_verbose 
    379379      !!---------------------------------------------------------------------- 
     380 
    380381      !JT 
     382 
     383      !JT remove nul from output.namelist.dyn 
     384      DO jh = 1,jpmax_harmo  
     385          tname(jh) = '' 
     386      END DO 
     387      !JT remove nul from output.namelist.dyn 
    381388      ln_diaharm_fast = .FALSE. 
    382389      ln_diaharm_multiyear = .FALSE. 

  • NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/DIU/diurnal_bulk.F90

    r14075 r15637  
    5959902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namdiu in configuration namelist' )       
    6060      ! 
     61      IF(lwm) WRITE ( numond, namdiu ) 
     62 
    6163      IF( ln_diurnal_only .AND. ( .NOT. ln_diurnal ) ) THEN 
    6264         CALL ctl_stop( "ln_diurnal_only set, but ln_diurnal = FALSE !" ) 

  • NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/DOM/dommsk.F90

    r14078 r15637  
    100100      CHARACTER(len = 256)            :: cn_shlat2d_file, cn_shlat2d_var   
    101101      !! 
     102 
     103      !JT remove nul from output.namelist.dyn 
     104      cn_shlat2d_file = '' 
     105      cn_shlat2d_var = '' 
     106      !JT remove nul from output.namelist.dyn 
    102107      NAMELIST/namlbc/ rn_shlat, ln_vorlat, ln_shlat2d, cn_shlat2d_file, cn_shlat2d_var 
    103108      NAMELIST/nambdy/ ln_bdy ,nb_bdy, ln_coords_file, cn_coords_file,         & 

  • NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/SBC/sbcflx.F90

    r15416 r15637  
    106106      &                    sn_press, ln_shelf_flx 
    107107      ! JT 
    108  
     108      !JT remove nul from output.namelist.dyn 
     109      sn_utau%lname = '' 
     110      sn_vtau%lname = '' 
     111      sn_qtot%lname = '' 
     112      sn_qsr%lname = '' 
     113      sn_emp%lname = '' 
     114      sn_press%lname = '' 
     115      !JT remove nul from output.namelist.dyn 
    109116      !!--------------------------------------------------------------------- 
    110117      ! 

  • NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/SBC/tideini.F90

    r15500 r15637  
    5959                  &     ln_tide_ramp, rn_scal_load, rdttideramp, dn_love_number, clname 
    6060      !!---------------------------------------------------------------------- 
     61 
     62 
     63       
     64      DO jk = 1, jpmax_harmo 
     65          clname(jk) = '' 
     66      END DO 
    6167      ! 
    6268      ! Read Namelist nam_tide 
Note: See TracChangeset for help on using the changeset viewer.