Changeset 10516 for NEMO/trunk/tests/ICE_AGRIF/MY_SRC
- Timestamp:
- 2019-01-15T17:31:25+01:00 (5 years ago)
- Location:
- NEMO/trunk/tests/ICE_AGRIF
- Files:
-
- 4 edited
- 1 moved
-
. (moved) (moved from NEMO/trunk/tests/ICEDYN)
-
MY_SRC/usrdef_hgr.F90 (modified) (4 diffs)
-
MY_SRC/usrdef_nam.F90 (modified) (6 diffs)
-
MY_SRC/usrdef_sbc.F90 (modified) (6 diffs)
-
MY_SRC/usrdef_zgr.F90 (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/tests/ICE_AGRIF/MY_SRC/usrdef_hgr.F90
r10074 r10516 3 3 !! *** MODULE usrdef_hgr *** 4 4 !! 5 !! === ICE DYNconfiguration ===5 !! === ICE_AGRIF configuration === 6 6 !! 7 7 !! User defined : mesh and Coriolis parameter of a user configuration … … 11 11 12 12 !!---------------------------------------------------------------------- 13 !! usr_def_hgr : initialize the horizontal mesh for ICE DYNconfiguration13 !! usr_def_hgr : initialize the horizontal mesh for ICE_AGRIF configuration 14 14 !!---------------------------------------------------------------------- 15 15 USE dom_oce ! ocean space and time domain … … 45 45 !! 46 46 !! ** Method : set all intent(out) argument to a proper value 47 !! ICE DYNconfiguration : uniform grid spacing (rn_dx)47 !! ICE_AGRIF configuration : uniform grid spacing (rn_dx) 48 48 !! without Coriolis force (f=0) 49 49 !! … … 68 68 ! 69 69 IF(lwp) WRITE(numout,*) 70 IF(lwp) WRITE(numout,*) 'usr_def_hgr : ICE DYNconfiguration bassin'70 IF(lwp) WRITE(numout,*) 'usr_def_hgr : ICE_AGRIF configuration bassin' 71 71 IF(lwp) WRITE(numout,*) 72 72 IF(lwp) WRITE(numout,*) ' f-plane with irregular grid-spacing (+- 10%)' -
NEMO/trunk/tests/ICE_AGRIF/MY_SRC/usrdef_nam.F90
r10161 r10516 3 3 !! *** MODULE usrdef_nam *** 4 4 !! 5 !! === ICE DYNconfiguration ===5 !! === ICE_AGRIF configuration === 6 6 !! 7 7 !! User defined : set the domain characteristics of a user configuration … … 48 48 !! ** Method : read in namusr_def containing all the user specific namelist parameter 49 49 !! 50 !! Here ICE DYNconfiguration50 !! Here ICE_AGRIF configuration 51 51 !! 52 52 !! ** input : - namusr_def namelist found in namelist_cfg … … 81 81 WRITE( ldnam(:), namusr_def ) 82 82 ! 83 cd_cfg = 'ICE DYN' ! name & resolution (not used)83 cd_cfg = 'ICE_AGRIF' ! name & resolution (not used) 84 84 kk_cfg = INT( rn_dx ) 85 85 ! 86 ! Global Domain size: ICE DYNdomain is 300 km x 300 Km x 10 m86 ! Global Domain size: ICE_AGRIF domain is 300 km x 300 Km x 10 m 87 87 kpi = INT( 300.e3 / rn_dx ) -1 88 88 kpj = INT( 300.e3 / rn_dy ) -1 … … 103 103 WRITE(ldtxt(ii),*) 'usr_def_nam : read the user defined namelist (namusr_def) in namelist_cfg' ; ii = ii + 1 104 104 WRITE(ldtxt(ii),*) '~~~~~~~~~~~ ' ; ii = ii + 1 105 WRITE(ldtxt(ii),*) ' Namelist namusr_def : ICE DYN test case'; ii = ii + 1105 WRITE(ldtxt(ii),*) ' Namelist namusr_def : ICE_AGRIF test case' ; ii = ii + 1 106 106 WRITE(ldtxt(ii),*) ' horizontal resolution rn_dx = ', rn_dx, ' meters' ; ii = ii + 1 107 107 WRITE(ldtxt(ii),*) ' horizontal resolution rn_dy = ', rn_dy, ' meters' ; ii = ii + 1 108 WRITE(ldtxt(ii),*) ' ICE DYN domain = 300 km x 300Km x 1 grid-point '; ii = ii + 1108 WRITE(ldtxt(ii),*) ' ICE_AGRIF domain = 300 km x 300Km x 1 grid-point ' ; ii = ii + 1 109 109 WRITE(ldtxt(ii),*) ' LX [km]: ', zlx ; ii = ii + 1 110 110 WRITE(ldtxt(ii),*) ' LY [km]: ', zly ; ii = ii + 1 … … 115 115 ! 116 116 ! ! Set the lateral boundary condition of the global domain 117 kperio = 7 ! ICE DYNconfiguration : bi-periodic basin117 kperio = 7 ! ICE_AGRIF configuration : bi-periodic basin 118 118 #if defined key_agrif 119 119 IF( .NOT. Agrif_Root() ) THEN … … 124 124 WRITE(ldtxt(ii),*) ' ' ; ii = ii + 1 125 125 WRITE(ldtxt(ii),*) ' Lateral boundary condition of the global domain' ; ii = ii + 1 126 WRITE(ldtxt(ii),*) ' ICE DYN : bi-periodic basin jperio = ', kperio; ii = ii + 1126 WRITE(ldtxt(ii),*) ' ICE_AGRIF : bi-periodic basin jperio = ', kperio ; ii = ii + 1 127 127 ! 128 128 END SUBROUTINE usr_def_nam -
NEMO/trunk/tests/ICE_AGRIF/MY_SRC/usrdef_sbc.F90
r10074 r10516 3 3 !! *** MODULE usrdef_sbc *** 4 4 !! 5 !! === ICE DYNconfiguration ===5 !! === ICE_AGRIF configuration === 6 6 !! 7 7 !! User defined : surface forcing of a user configuration … … 11 11 12 12 !!---------------------------------------------------------------------- 13 !! usr_def_sbc : user defined surface bounday conditions in ICE DYNcase13 !! usr_def_sbc : user defined surface bounday conditions in ICE_AGRIF case 14 14 !!---------------------------------------------------------------------- 15 15 USE oce ! ocean dynamics and tracers … … 49 49 !! condition, i.e. the momentum, heat and freshwater fluxes. 50 50 !! 51 !! ** Method : all 0 fields, for ICE DYNcase51 !! ** Method : all 0 fields, for ICE_AGRIF case 52 52 !! CAUTION : never mask the surface stress field ! 53 53 !! … … 61 61 IF( kt == nit000 ) THEN 62 62 ! 63 IF(lwp) WRITE(numout,*)' usrdef_sbc_oce : ICE DYNcase: NO surface forcing'63 IF(lwp) WRITE(numout,*)' usrdef_sbc_oce : ICE_AGRIF case: NO surface forcing' 64 64 ! --- oce variables --- ! 65 65 utau(:,:) = 0._wp … … 91 91 INTEGER, INTENT(in) :: kt ! ocean time step 92 92 !!--------------------------------------------------------------------- 93 IF( kt==nit000 .AND. lwp) WRITE(numout,*)' usrdef_sbc_ice : ICE DYNcase: constant stress forcing'93 IF( kt==nit000 .AND. lwp) WRITE(numout,*)' usrdef_sbc_ice : ICE_AGRIF case: constant stress forcing' 94 94 ! 95 95 utau_ice(:,:) = 1.3_wp ! <=> 0.5 m/s … … 112 112 !!--------------------------------------------------------------------- 113 113 ! 114 IF( kt==nit000 .AND. lwp) WRITE(numout,*)' usrdef_sbc_ice : ICE DYNcase: NO flux forcing'114 IF( kt==nit000 .AND. lwp) WRITE(numout,*)' usrdef_sbc_ice : ICE_AGRIF case: NO flux forcing' 115 115 ! 116 116 ! ocean variables (renaming) -
NEMO/trunk/tests/ICE_AGRIF/MY_SRC/usrdef_zgr.F90
r10074 r10516 3 3 !! *** MODULE usrdef_zgr *** 4 4 !! 5 !! === ICE DYNcase ===5 !! === ICE_AGRIF case === 6 6 !! 7 7 !! Ocean domain : user defined vertical coordinate system … … 59 59 ! 60 60 IF(lwp) WRITE(numout,*) 61 IF(lwp) WRITE(numout,*) 'usr_def_zgr : ICE DYN configuration (slab ocean - advection of an ice patch in a biperiodic square box domain)'62 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~ '61 IF(lwp) WRITE(numout,*) 'usr_def_zgr : ICE_AGRIF configuration ' 62 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~ (slab ocean - advection of an ice patch in a biperiodic square box domain)' 63 63 ! 64 64 ! 65 ! type of vertical coordinate ==>>> here ICE DYN: slab ocean always65 ! type of vertical coordinate ==>>> here ICE_AGRIF : slab ocean always 66 66 ! --------------------------- 67 67 ld_zco = .TRUE. ! z-full-step coordinate
Note: See TracChangeset
for help on using the changeset viewer.
