Changeset 15637
- Timestamp:
- 2022-01-12T17:50:19+01:00 (3 years ago)
- 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 73 73 !!---------------------------------------------------------------------- 74 74 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 75 81 IF(lwp) THEN 76 82 WRITE(numout,*) -
NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/DIA/diaharm_fast.F90
r15614 r15637 378 378 & ln_diaharm_postproc_vel,ln_diaharm_baroc3dvel_only, ln_diaharm_verbose 379 379 !!---------------------------------------------------------------------- 380 380 381 !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 381 388 ln_diaharm_fast = .FALSE. 382 389 ln_diaharm_multiyear = .FALSE. -
NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/DIU/diurnal_bulk.F90
r14075 r15637 59 59 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdiu in configuration namelist' ) 60 60 ! 61 IF(lwm) WRITE ( numond, namdiu ) 62 61 63 IF( ln_diurnal_only .AND. ( .NOT. ln_diurnal ) ) THEN 62 64 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 100 100 CHARACTER(len = 256) :: cn_shlat2d_file, cn_shlat2d_var 101 101 !! 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 102 107 NAMELIST/namlbc/ rn_shlat, ln_vorlat, ln_shlat2d, cn_shlat2d_file, cn_shlat2d_var 103 108 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 106 106 & sn_press, ln_shelf_flx 107 107 ! 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 109 116 !!--------------------------------------------------------------------- 110 117 ! -
NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/SBC/tideini.F90
r15500 r15637 59 59 & ln_tide_ramp, rn_scal_load, rdttideramp, dn_love_number, clname 60 60 !!---------------------------------------------------------------------- 61 62 63 64 DO jk = 1, jpmax_harmo 65 clname(jk) = '' 66 END DO 61 67 ! 62 68 ! Read Namelist nam_tide
Note: See TracChangeset
for help on using the changeset viewer.