- Timestamp:
- 2016-11-25T09:38:58+01:00 (7 years ago)
- Location:
- branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC
- Files:
-
- 4 edited
-
oce_trc.F90 (modified) (11 diffs)
-
trcdta.F90 (modified) (1 diff)
-
trcstp.F90 (modified) (2 diffs)
-
trcsub.F90 (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/oce_trc.F90
r7320 r7332 108 108 USE crs , ONLY : e3v => e3v_n_crs !: vertical scale factors v- 109 109 USE crs , ONLY : e3w => e3w_n_crs !: w-points (m) 110 USE crs , ONLY : e3t_b => e3t_b_crs !: vertical scale factors at t- 111 USE crs , ONLY : e3u_b => e3u_b_crs !: vertical scale factors at u- 112 USE crs , ONLY : e3v_b => e3v_b_crs !: vertical scale factors v- 113 USE crs , ONLY : e3w_b => e3w_b_crs !: w-points (m) 110 114 USE crs , ONLY : e3t_n => e3t_n_crs !: vertical scale factors at t- 111 115 USE crs , ONLY : e3u_n => e3u_n_crs !: vertical scale factors at u- … … 116 120 USE crs , ONLY : e3v_a => e3v_a_crs !: vertical scale factors v- 117 121 USE crs , ONLY : e3w_a => e3w_a_crs !: w-points (m) 118 USE crs , ONLY : fse3t => e3t_n_crs !: vertical scale factors at t-119 USE crs , ONLY : fse3u => e3u_n_crs !: vertical scale factors at u-120 USE crs , ONLY : fse3v => e3v_n_crs !: vertical scale factors v-121 USE crs , ONLY : fse3w => e3w_n_crs !: w-points (m)122 122 USE crs , ONLY : gdept => gdept_n_crs !: depth of t-points (m) 123 123 USE crs , ONLY : gdept_crs => gdept_n_crs !: depth of t-points (m) 124 124 USE crs , ONLY : gdept_n => gdept_n_crs !: depth of t-points (m) 125 USE crs , ONLY : fse3t_b => e3t_b_crs !: vertical scale factors at t-126 USE crs , ONLY : fse3t_n => e3t_n_crs !: vertical scale factors at t-127 USE crs , ONLY : fse3t_a => e3t_a_crs !: vertical scale factors at t-128 USE crs , ONLY : fsdept_n => gdept_n_crs !: depth of t-points (m)129 125 USE crs , ONLY : e3t_max_crs => e3t_max_n_crs 130 126 USE crs , ONLY : e3u_max_crs => e3u_max_n_crs … … 136 132 USE crs , ONLY : e3v => e3v_0_crs !: vertical scale factors v- 137 133 USE crs , ONLY : e3w => e3w_0_crs !: w-points (m) 134 USE crs , ONLY : e3t_b => e3t_0_crs !: vertical scale factors at t- 135 USE crs , ONLY : e3u_b => e3u_0_crs !: vertical scale factors at u- 136 USE crs , ONLY : e3v_b => e3v_0_crs !: vertical scale factors v- 137 USE crs , ONLY : e3w_b => e3w_0_crs !: w-points (m) 138 138 USE crs , ONLY : e3t_n => e3t_0_crs !: vertical scale factors at t- 139 139 USE crs , ONLY : e3u_n => e3u_0_crs !: vertical scale factors at u- … … 144 144 USE crs , ONLY : e3v_a => e3v_0_crs !: vertical scale factors v- 145 145 USE crs , ONLY : e3w_a => e3w_0_crs !: w-points (m) 146 USE crs , ONLY : fse3t => e3t_0_crs !: vertical scale factors at t-147 USE crs , ONLY : fse3u => e3u_0_crs !: vertical scale factors at u-148 USE crs , ONLY : fse3v => e3v_0_crs !: vertical scale factors v-149 USE crs , ONLY : fse3w => e3w_0_crs !: w-points (m)150 146 USE crs , ONLY : gdept => gdept_0_crs !: depth of t-points (m) 151 147 USE crs , ONLY : gdepw => gdepw_0_crs !: depth of t-points (m) … … 153 149 USE crs , ONLY : gdepw_crs => gdepw_0_crs !: depth of t-points (m) 154 150 USE crs , ONLY : gdept_n => gdept_0_crs !: depth of t-points (m) 155 USE crs , ONLY : fse3t_b => e3t_0_crs !: vertical scale factors at t-156 USE crs , ONLY : fse3t_n => e3t_0_crs !: vertical scale factors at t-157 USE crs , ONLY : fse3t_a => e3t_0_crs !: vertical scale factors at t-158 USE crs , ONLY : fsdept_n => gdept_0_crs !: depth of t-points (m)159 151 USE crs , ONLY : e3t_max_crs => e3t_max_0_crs 160 152 USE crs , ONLY : e3u_max_crs => e3u_max_0_crs … … 167 159 USE crs , ONLY : e3w_0 => e3w_0_crs !: vertical scale factors at t- 168 160 169 USE crs , ONLY : ff => ff_crs !: f-points (m)170 USE crs , ONLY : gdept_0 => gdept_0_crs !: depth of t-points (m)161 USE crs , ONLY : ff => ff_crs !: f-points (m) 162 USE crs , ONLY : gdept_0 => gdept_0_crs !: depth of t-points (m) 171 163 USE dom_oce , ONLY : gdept_1d => gdept_1d !: depth of t-points (m) 172 164 #if defined key_zco … … 185 177 186 178 !* ocean fields: here now and after fields * 187 !cbr? USE crs , ONLY : ua => ua_crs !: i-horizontal velocity (m s-1)188 !cbr? USE crs , ONLY : va => va_crs !: j-horizontal velocity (m s-1)189 179 USE crs , ONLY : un => un_crs !: i-horizontal velocity (m s-1) 190 180 USE crs , ONLY : vn => vn_crs !: j-horizontal velocity (m s-1) … … 228 218 #endif 229 219 230 !cbr USE trc_oce231 220 USE trc_oce, ONLY : lk_offline 232 221 USE trc_oce, ONLY : nn_dttrc … … 316 305 USE dom_oce , ONLY : e3t_0 => e3t_0 !: vertical scale factors at t- 317 306 #if defined key_vvl 318 USE dom_oce , ONLY : fse3t_b => e3t_b319 USE dom_oce , ONLY : fse3t_n => e3t_n320 USE dom_oce , ONLY : fse3t => e3t_n321 USE dom_oce , ONLY : fse3u => e3u_n322 USE dom_oce , ONLY : fse3v => e3v_n323 USE dom_oce , ONLY : fse3w => e3w_n324 USE dom_oce , ONLY : fse3t_a => e3t_a325 307 USE dom_oce , ONLY : e3t_b => e3t_b 326 308 USE dom_oce , ONLY : e3t_n => e3t_n … … 337 319 USE dom_oce , ONLY : e3f => e3f_n !: f-points (m) 338 320 USE dom_oce , ONLY : gdept_n => gdept_n !: f-points (m) 339 USE dom_oce , ONLY : fsdept_n => gdept_n !: f-points (m)340 321 #else 341 322 USE dom_oce , ONLY : fse3t_n => e3t_0 … … 394 375 395 376 !* model domain * 396 !cbr USE dom_oce , ONLY : e3w_0397 377 USE dom_oce , ONLY : lzoom => lzoom 398 378 -
branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/trcdta.F90
r7256 r7332 37 37 !$AGRIF_END_DO_NOT_TREAT 38 38 !! * Substitutions 39 !cbr# include "domzgr_substitute.h90"39 # include "domzgr_substitute.h90" 40 40 !!---------------------------------------------------------------------- 41 41 !! NEMO/OPA 3.3 , NEMO Consortium (2010) -
branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/trcstp.F90
r7256 r7332 76 76 IF( l_trcdm2dc ) CALL trc_mean_qsr( kt ) 77 77 ! 78 !cbrIF( nn_dttrc /= 1 ) CALL trc_sub_stp( kt ) ! averaging physical variables for sub-stepping78 IF( nn_dttrc /= 1 ) CALL trc_sub_stp( kt ) ! averaging physical variables for sub-stepping 79 79 ! 80 80 IF( MOD( kt , nn_dttrc ) == 0 ) THEN ! only every nn_dttrc time step … … 102 102 IF( lk_trdmxl_trc ) CALL trd_mxl_trc ( kt ) ! trends: Mixed-layer 103 103 ! 104 !cbrIF( nn_dttrc /= 1 ) CALL trc_sub_reset( kt ) ! resetting physical variables when sub-stepping104 IF( nn_dttrc /= 1 ) CALL trc_sub_reset( kt ) ! resetting physical variables when sub-stepping 105 105 ! 106 106 ENDIF -
branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/trcsub.F90
r7256 r7332 39 39 40 40 !!* Substitution 41 !!# include "top_substitute.h90"41 # include "top_substitute.h90" 42 42 !!---------------------------------------------------------------------- 43 43 !! NEMO/TOP 3.3 , NEMO Consortium (2010)
Note: See TracChangeset
for help on using the changeset viewer.
