Changeset 14297
- Timestamp:
- 2021-01-13T12:54:45+01:00 (3 years ago)
- Location:
- NEMO/trunk/tests/TSUNAMI
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/tests/TSUNAMI/EXPREF/namelist_cfg
r14225 r14297 25 25 rn_dx = 10. ! x horizontal resolution [km] 26 26 rn_dy = 10. ! y horizontal resolution [km] 27 rn_dz = 100. ! z vertical resolution [m]28 27 rn_0xratio = 0.2 ! x-domain ratio of the 0 29 28 rn_0yratio = 0.4 ! y-domain ratio of the 0 30 nn_fcase = 0 ! F computation (0:f0, 1:Beta, 2:real)29 nn_fcase = 0 ! Coriolis frequency(f) computation (0:f0, 1:Beta plan, 2:real) 31 30 rn_ppgphi0 = 38.5 ! Reference latitude [degrees] 32 31 nn_perio = 7 -
NEMO/trunk/tests/TSUNAMI/MY_SRC/usrdef_nam.F90
r14225 r14297 33 33 REAL(wp), PUBLIC :: rn_dx = 30. ! x horizontal resolution [km] 34 34 REAL(wp), PUBLIC :: rn_dy = 30. ! y horizontal resolution [km] 35 REAL(wp), PUBLIC :: rn_dz = 500. ! vertical resolution [m]36 35 REAL(wp), PUBLIC :: rn_0xratio = 0.5 ! x domain ratio of the 0 37 36 REAL(wp), PUBLIC :: rn_0yratio = 0.5 ! x domain ratio of the 0 … … 65 64 ! 66 65 INTEGER :: ios ! Local integer 67 REAL(wp):: zh ! Local scalars68 66 !! 69 NAMELIST/namusr_def/ rn_domszx, rn_domszy, rn_domszz, rn_dx, rn_dy, rn_ dz, rn_0xratio, rn_0yratio &67 NAMELIST/namusr_def/ rn_domszx, rn_domszy, rn_domszz, rn_dx, rn_dy, rn_0xratio, rn_0yratio & 70 68 & , nn_fcase, rn_ppgphi0, nn_perio 71 69 !!---------------------------------------------------------------------- … … 81 79 rn_dx = Agrif_Parent(rn_dx)/Agrif_Rhox() 82 80 rn_dy = Agrif_Parent(rn_dy)/Agrif_Rhoy() 83 rn_dz = Agrif_Parent(rn_dz)84 81 rn_ppgphi0 = Agrif_Parent(rn_ppgphi0) 85 82 ENDIF 86 rn_0xratio = 0.5 83 rn_0xratio = 0.5 ! not really working I guess... 87 84 rn_0yratio = 0.5 88 85 #endif … … 100 97 kpj = nbcellsy + nbghostcells_y_s + nbghostcells_y_n + 2 101 98 ENDIF 102 kpk = MAX( 2, NINT( rn_domszz / rn_dz ) + 1 ) 103 ! 104 zh = (kpk-1)*rn_dz 99 kpk = 2 105 100 ! ! Set the lateral boundary condition of the global domain 106 101 kperio = 1 ! TSUNAMI configuration : closed basin … … 116 111 WRITE(numout,*) ' horizontal x-resolution rn_dx = ', rn_dx, ' km' 117 112 WRITE(numout,*) ' horizontal y-resolution rn_dy = ', rn_dy, ' km' 118 WRITE(numout,*) ' vertical resolution rn_dz = ', rn_dz, ' m'119 113 WRITE(numout,*) ' x-domain ratio of the 0 rn_0xratio = ', rn_0xratio 120 114 WRITE(numout,*) ' y-domain ratio of the 0 rn_0yratio = ', rn_0yratio 121 WRITE(numout,*) ' H [m] : ', zh122 115 WRITE(numout,*) ' F computation nn_fcase = ', nn_fcase 123 116 WRITE(numout,*) ' Reference latitude rn_ppgphi0 = ', rn_ppgphi0
Note: See TracChangeset
for help on using the changeset viewer.