- Timestamp:
- 2017-03-17T08:46:30+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/LIM_SRC_3/limrst.F90
r5602 r7806 108 108 INTEGER :: iter 109 109 CHARACTER(len=15) :: znam 110 CHARACTER(len= 1) :: zchar, zchar1110 CHARACTER(len=2) :: zchar, zchar1 111 111 REAL(wp), POINTER, DIMENSION(:,:) :: z2d 112 112 !!---------------------------------------------------------------------- … … 130 130 ! Prognostic variables 131 131 DO jl = 1, jpl 132 WRITE(zchar,'(I 1)') jl133 znam = 'v_i'//'_htc'// zchar132 WRITE(zchar,'(I2)') jl 133 znam = 'v_i'//'_htc'//TRIM(ADJUSTL(zchar)) 134 134 z2d(:,:) = v_i(:,:,jl) 135 135 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 136 znam = 'v_s'//'_htc'// zchar136 znam = 'v_s'//'_htc'//TRIM(ADJUSTL(zchar)) 137 137 z2d(:,:) = v_s(:,:,jl) 138 138 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 139 znam = 'smv_i'//'_htc'// zchar139 znam = 'smv_i'//'_htc'//TRIM(ADJUSTL(zchar)) 140 140 z2d(:,:) = smv_i(:,:,jl) 141 141 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 142 znam = 'oa_i'//'_htc'// zchar142 znam = 'oa_i'//'_htc'//TRIM(ADJUSTL(zchar)) 143 143 z2d(:,:) = oa_i(:,:,jl) 144 144 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 145 znam = 'a_i'//'_htc'// zchar145 znam = 'a_i'//'_htc'//TRIM(ADJUSTL(zchar)) 146 146 z2d(:,:) = a_i(:,:,jl) 147 147 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 148 znam = 't_su'//'_htc'// zchar148 znam = 't_su'//'_htc'//TRIM(ADJUSTL(zchar)) 149 149 z2d(:,:) = t_su(:,:,jl) 150 150 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 151 END DO 152 153 DO jl = 1, jpl 154 WRITE(zchar,'(I1)') jl 155 znam = 'tempt_sl1'//'_htc'//zchar 151 znam = 'tempt_sl1'//'_htc'//TRIM(ADJUSTL(zchar)) 156 152 z2d(:,:) = e_s(:,:,1,jl) 157 153 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 158 END DO159 160 DO jl = 1, jpl161 WRITE(zchar,'(I1)') jl162 154 DO jk = 1, nlay_i 163 WRITE(zchar1,'(I 1)') jk164 znam = 'tempt'//'_il'// zchar1//'_htc'//zchar155 WRITE(zchar1,'(I2)') jk 156 znam = 'tempt'//'_il'//TRIM(ADJUSTL(zchar1))//'_htc'//TRIM(ADJUSTL(zchar)) 165 157 z2d(:,:) = e_i(:,:,jk,jl) 166 158 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) … … 177 169 178 170 DO jl = 1, jpl 179 WRITE(zchar,'(I 1)') jl180 znam = 'sxice'//'_htc'// zchar171 WRITE(zchar,'(I2)') jl 172 znam = 'sxice'//'_htc'//TRIM(ADJUSTL(zchar)) 181 173 z2d(:,:) = sxice(:,:,jl) 182 174 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 183 znam = 'syice'//'_htc'// zchar175 znam = 'syice'//'_htc'//TRIM(ADJUSTL(zchar)) 184 176 z2d(:,:) = syice(:,:,jl) 185 177 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 186 znam = 'sxxice'//'_htc'// zchar178 znam = 'sxxice'//'_htc'//TRIM(ADJUSTL(zchar)) 187 179 z2d(:,:) = sxxice(:,:,jl) 188 180 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 189 znam = 'syyice'//'_htc'// zchar181 znam = 'syyice'//'_htc'//TRIM(ADJUSTL(zchar)) 190 182 z2d(:,:) = syyice(:,:,jl) 191 183 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 192 znam = 'sxyice'//'_htc'// zchar184 znam = 'sxyice'//'_htc'//TRIM(ADJUSTL(zchar)) 193 185 z2d(:,:) = sxyice(:,:,jl) 194 186 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 195 znam = 'sxsn'//'_htc'// zchar187 znam = 'sxsn'//'_htc'//TRIM(ADJUSTL(zchar)) 196 188 z2d(:,:) = sxsn(:,:,jl) 197 189 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 198 znam = 'sysn'//'_htc'// zchar190 znam = 'sysn'//'_htc'//TRIM(ADJUSTL(zchar)) 199 191 z2d(:,:) = sysn(:,:,jl) 200 192 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 201 znam = 'sxxsn'//'_htc'// zchar193 znam = 'sxxsn'//'_htc'//TRIM(ADJUSTL(zchar)) 202 194 z2d(:,:) = sxxsn(:,:,jl) 203 195 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 204 znam = 'syysn'//'_htc'// zchar196 znam = 'syysn'//'_htc'//TRIM(ADJUSTL(zchar)) 205 197 z2d(:,:) = syysn(:,:,jl) 206 198 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 207 znam = 'sxysn'//'_htc'// zchar199 znam = 'sxysn'//'_htc'//TRIM(ADJUSTL(zchar)) 208 200 z2d(:,:) = sxysn(:,:,jl) 209 201 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 210 znam = 'sxa'//'_htc'// zchar202 znam = 'sxa'//'_htc'//TRIM(ADJUSTL(zchar)) 211 203 z2d(:,:) = sxa(:,:,jl) 212 204 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 213 znam = 'sya'//'_htc'// zchar205 znam = 'sya'//'_htc'//TRIM(ADJUSTL(zchar)) 214 206 z2d(:,:) = sya(:,:,jl) 215 207 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 216 znam = 'sxxa'//'_htc'// zchar208 znam = 'sxxa'//'_htc'//TRIM(ADJUSTL(zchar)) 217 209 z2d(:,:) = sxxa(:,:,jl) 218 210 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 219 znam = 'syya'//'_htc'// zchar211 znam = 'syya'//'_htc'//TRIM(ADJUSTL(zchar)) 220 212 z2d(:,:) = syya(:,:,jl) 221 213 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 222 znam = 'sxya'//'_htc'// zchar214 znam = 'sxya'//'_htc'//TRIM(ADJUSTL(zchar)) 223 215 z2d(:,:) = sxya(:,:,jl) 224 216 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 225 znam = 'sxc0'//'_htc'// zchar217 znam = 'sxc0'//'_htc'//TRIM(ADJUSTL(zchar)) 226 218 z2d(:,:) = sxc0(:,:,jl) 227 219 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 228 znam = 'syc0'//'_htc'// zchar220 znam = 'syc0'//'_htc'//TRIM(ADJUSTL(zchar)) 229 221 z2d(:,:) = syc0(:,:,jl) 230 222 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 231 znam = 'sxxc0'//'_htc'// zchar223 znam = 'sxxc0'//'_htc'//TRIM(ADJUSTL(zchar)) 232 224 z2d(:,:) = sxxc0(:,:,jl) 233 225 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 234 znam = 'syyc0'//'_htc'// zchar226 znam = 'syyc0'//'_htc'//TRIM(ADJUSTL(zchar)) 235 227 z2d(:,:) = syyc0(:,:,jl) 236 228 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 237 znam = 'sxyc0'//'_htc'// zchar229 znam = 'sxyc0'//'_htc'//TRIM(ADJUSTL(zchar)) 238 230 z2d(:,:) = sxyc0(:,:,jl) 239 231 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 240 znam = 'sxsal'//'_htc'// zchar232 znam = 'sxsal'//'_htc'//TRIM(ADJUSTL(zchar)) 241 233 z2d(:,:) = sxsal(:,:,jl) 242 234 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 243 znam = 'sysal'//'_htc'// zchar235 znam = 'sysal'//'_htc'//TRIM(ADJUSTL(zchar)) 244 236 z2d(:,:) = sysal(:,:,jl) 245 237 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 246 znam = 'sxxsal'//'_htc'// zchar238 znam = 'sxxsal'//'_htc'//TRIM(ADJUSTL(zchar)) 247 239 z2d(:,:) = sxxsal(:,:,jl) 248 240 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 249 znam = 'syysal'//'_htc'// zchar241 znam = 'syysal'//'_htc'//TRIM(ADJUSTL(zchar)) 250 242 z2d(:,:) = syysal(:,:,jl) 251 243 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 252 znam = 'sxysal'//'_htc'// zchar244 znam = 'sxysal'//'_htc'//TRIM(ADJUSTL(zchar)) 253 245 z2d(:,:) = sxysal(:,:,jl) 254 246 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 255 znam = 'sxage'//'_htc'// zchar247 znam = 'sxage'//'_htc'//TRIM(ADJUSTL(zchar)) 256 248 z2d(:,:) = sxage(:,:,jl) 257 249 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 258 znam = 'syage'//'_htc'// zchar250 znam = 'syage'//'_htc'//TRIM(ADJUSTL(zchar)) 259 251 z2d(:,:) = syage(:,:,jl) 260 252 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 261 znam = 'sxxage'//'_htc'// zchar253 znam = 'sxxage'//'_htc'//TRIM(ADJUSTL(zchar)) 262 254 z2d(:,:) = sxxage(:,:,jl) 263 255 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 264 znam = 'syyage'//'_htc'// zchar256 znam = 'syyage'//'_htc'//TRIM(ADJUSTL(zchar)) 265 257 z2d(:,:) = syyage(:,:,jl) 266 258 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 267 znam = 'sxyage'//'_htc'// zchar259 znam = 'sxyage'//'_htc'//TRIM(ADJUSTL(zchar)) 268 260 z2d(:,:) = sxyage(:,:,jl) 269 261 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) … … 277 269 278 270 DO jl = 1, jpl 279 WRITE(zchar,'(I 1)') jl271 WRITE(zchar,'(I2)') jl 280 272 DO jk = 1, nlay_i 281 WRITE(zchar1,'(I 1)') jk282 znam = 'sxe'//'_il'// zchar1//'_htc'//zchar273 WRITE(zchar1,'(I2)') jk 274 znam = 'sxe'//'_il'//TRIM(ADJUSTL(zchar1))//'_htc'//TRIM(ADJUSTL(zchar)) 283 275 z2d(:,:) = sxe(:,:,jk,jl) 284 276 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 285 znam = 'sye'//'_il'// zchar1//'_htc'//zchar277 znam = 'sye'//'_il'//TRIM(ADJUSTL(zchar1))//'_htc'//TRIM(ADJUSTL(zchar)) 286 278 z2d(:,:) = sye(:,:,jk,jl) 287 279 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 288 znam = 'sxxe'//'_il'// zchar1//'_htc'//zchar280 znam = 'sxxe'//'_il'//TRIM(ADJUSTL(zchar1))//'_htc'//TRIM(ADJUSTL(zchar)) 289 281 z2d(:,:) = sxxe(:,:,jk,jl) 290 282 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 291 znam = 'syye'//'_il'// zchar1//'_htc'//zchar283 znam = 'syye'//'_il'//TRIM(ADJUSTL(zchar1))//'_htc'//TRIM(ADJUSTL(zchar)) 292 284 z2d(:,:) = syye(:,:,jk,jl) 293 285 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 294 znam = 'sxye'//'_il'// zchar1//'_htc'//zchar286 znam = 'sxye'//'_il'//TRIM(ADJUSTL(zchar1))//'_htc'//TRIM(ADJUSTL(zchar)) 295 287 z2d(:,:) = sxye(:,:,jk,jl) 296 288 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) … … 318 310 REAL(wp), POINTER, DIMENSION(:,:) :: z2d 319 311 CHARACTER(len=15) :: znam 320 CHARACTER(len= 1) :: zchar, zchar1312 CHARACTER(len=2) :: zchar, zchar1 321 313 INTEGER :: jlibalt = jprstlib 322 314 LOGICAL :: llok … … 357 349 358 350 DO jl = 1, jpl 359 WRITE(zchar,'(I 1)') jl360 znam = 'v_i'//'_htc'// zchar351 WRITE(zchar,'(I2)') jl 352 znam = 'v_i'//'_htc'//TRIM(ADJUSTL(zchar)) 361 353 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 362 354 v_i(:,:,jl) = z2d(:,:) 363 znam = 'v_s'//'_htc'// zchar355 znam = 'v_s'//'_htc'//TRIM(ADJUSTL(zchar)) 364 356 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 365 357 v_s(:,:,jl) = z2d(:,:) 366 znam = 'smv_i'//'_htc'// zchar358 znam = 'smv_i'//'_htc'//TRIM(ADJUSTL(zchar)) 367 359 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 368 360 smv_i(:,:,jl) = z2d(:,:) 369 znam = 'oa_i'//'_htc'// zchar361 znam = 'oa_i'//'_htc'//TRIM(ADJUSTL(zchar)) 370 362 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 371 363 oa_i(:,:,jl) = z2d(:,:) 372 znam = 'a_i'//'_htc'// zchar364 znam = 'a_i'//'_htc'//TRIM(ADJUSTL(zchar)) 373 365 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 374 366 a_i(:,:,jl) = z2d(:,:) 375 znam = 't_su'//'_htc'// zchar367 znam = 't_su'//'_htc'//TRIM(ADJUSTL(zchar)) 376 368 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 377 369 t_su(:,:,jl) = z2d(:,:) 378 END DO 379 380 DO jl = 1, jpl 381 WRITE(zchar,'(I1)') jl 382 znam = 'tempt_sl1'//'_htc'//zchar 370 znam = 'tempt_sl1'//'_htc'//TRIM(ADJUSTL(zchar)) 383 371 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 384 372 e_s(:,:,1,jl) = z2d(:,:) 385 END DO386 387 DO jl = 1, jpl388 WRITE(zchar,'(I1)') jl389 373 DO jk = 1, nlay_i 390 WRITE(zchar1,'(I 1)') jk391 znam = 'tempt'//'_il'// zchar1//'_htc'//zchar374 WRITE(zchar1,'(I2)') jk 375 znam = 'tempt'//'_il'//TRIM(ADJUSTL(zchar1))//'_htc'//TRIM(ADJUSTL(zchar)) 392 376 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 393 377 e_i(:,:,jk,jl) = z2d(:,:) … … 404 388 405 389 DO jl = 1, jpl 406 WRITE(zchar,'(I 1)') jl407 znam = 'sxice'//'_htc'// zchar390 WRITE(zchar,'(I2)') jl 391 znam = 'sxice'//'_htc'//TRIM(ADJUSTL(zchar)) 408 392 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 409 393 sxice(:,:,jl) = z2d(:,:) 410 znam = 'syice'//'_htc'// zchar394 znam = 'syice'//'_htc'//TRIM(ADJUSTL(zchar)) 411 395 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 412 396 syice(:,:,jl) = z2d(:,:) 413 znam = 'sxxice'//'_htc'// zchar397 znam = 'sxxice'//'_htc'//TRIM(ADJUSTL(zchar)) 414 398 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 415 399 sxxice(:,:,jl) = z2d(:,:) 416 znam = 'syyice'//'_htc'// zchar400 znam = 'syyice'//'_htc'//TRIM(ADJUSTL(zchar)) 417 401 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 418 402 syyice(:,:,jl) = z2d(:,:) 419 znam = 'sxyice'//'_htc'// zchar403 znam = 'sxyice'//'_htc'//TRIM(ADJUSTL(zchar)) 420 404 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 421 405 sxyice(:,:,jl) = z2d(:,:) 422 znam = 'sxsn'//'_htc'// zchar406 znam = 'sxsn'//'_htc'//TRIM(ADJUSTL(zchar)) 423 407 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 424 408 sxsn(:,:,jl) = z2d(:,:) 425 znam = 'sysn'//'_htc'// zchar409 znam = 'sysn'//'_htc'//TRIM(ADJUSTL(zchar)) 426 410 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 427 411 sysn(:,:,jl) = z2d(:,:) 428 znam = 'sxxsn'//'_htc'// zchar412 znam = 'sxxsn'//'_htc'//TRIM(ADJUSTL(zchar)) 429 413 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 430 414 sxxsn(:,:,jl) = z2d(:,:) 431 znam = 'syysn'//'_htc'// zchar415 znam = 'syysn'//'_htc'//TRIM(ADJUSTL(zchar)) 432 416 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 433 417 syysn(:,:,jl) = z2d(:,:) 434 znam = 'sxysn'//'_htc'// zchar418 znam = 'sxysn'//'_htc'//TRIM(ADJUSTL(zchar)) 435 419 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 436 420 sxysn(:,:,jl) = z2d(:,:) 437 znam = 'sxa'//'_htc'// zchar421 znam = 'sxa'//'_htc'//TRIM(ADJUSTL(zchar)) 438 422 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 439 423 sxa(:,:,jl) = z2d(:,:) 440 znam = 'sya'//'_htc'// zchar424 znam = 'sya'//'_htc'//TRIM(ADJUSTL(zchar)) 441 425 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 442 426 sya(:,:,jl) = z2d(:,:) 443 znam = 'sxxa'//'_htc'// zchar427 znam = 'sxxa'//'_htc'//TRIM(ADJUSTL(zchar)) 444 428 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 445 429 sxxa(:,:,jl) = z2d(:,:) 446 znam = 'syya'//'_htc'// zchar430 znam = 'syya'//'_htc'//TRIM(ADJUSTL(zchar)) 447 431 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 448 432 syya(:,:,jl) = z2d(:,:) 449 znam = 'sxya'//'_htc'// zchar433 znam = 'sxya'//'_htc'//TRIM(ADJUSTL(zchar)) 450 434 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 451 435 sxya(:,:,jl) = z2d(:,:) 452 znam = 'sxc0'//'_htc'// zchar436 znam = 'sxc0'//'_htc'//TRIM(ADJUSTL(zchar)) 453 437 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 454 438 sxc0(:,:,jl) = z2d(:,:) 455 znam = 'syc0'//'_htc'// zchar439 znam = 'syc0'//'_htc'//TRIM(ADJUSTL(zchar)) 456 440 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 457 441 syc0(:,:,jl) = z2d(:,:) 458 znam = 'sxxc0'//'_htc'// zchar442 znam = 'sxxc0'//'_htc'//TRIM(ADJUSTL(zchar)) 459 443 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 460 444 sxxc0(:,:,jl) = z2d(:,:) 461 znam = 'syyc0'//'_htc'// zchar445 znam = 'syyc0'//'_htc'//TRIM(ADJUSTL(zchar)) 462 446 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 463 447 syyc0(:,:,jl) = z2d(:,:) 464 znam = 'sxyc0'//'_htc'// zchar448 znam = 'sxyc0'//'_htc'//TRIM(ADJUSTL(zchar)) 465 449 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 466 450 sxyc0(:,:,jl) = z2d(:,:) 467 znam = 'sxsal'//'_htc'// zchar451 znam = 'sxsal'//'_htc'//TRIM(ADJUSTL(zchar)) 468 452 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 469 453 sxsal(:,:,jl) = z2d(:,:) 470 znam = 'sysal'//'_htc'// zchar454 znam = 'sysal'//'_htc'//TRIM(ADJUSTL(zchar)) 471 455 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 472 456 sysal(:,:,jl) = z2d(:,:) 473 znam = 'sxxsal'//'_htc'// zchar457 znam = 'sxxsal'//'_htc'//TRIM(ADJUSTL(zchar)) 474 458 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 475 459 sxxsal(:,:,jl) = z2d(:,:) 476 znam = 'syysal'//'_htc'// zchar460 znam = 'syysal'//'_htc'//TRIM(ADJUSTL(zchar)) 477 461 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 478 462 syysal(:,:,jl) = z2d(:,:) 479 znam = 'sxysal'//'_htc'// zchar463 znam = 'sxysal'//'_htc'//TRIM(ADJUSTL(zchar)) 480 464 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 481 465 sxysal(:,:,jl) = z2d(:,:) 482 znam = 'sxage'//'_htc'// zchar466 znam = 'sxage'//'_htc'//TRIM(ADJUSTL(zchar)) 483 467 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 484 468 sxage(:,:,jl) = z2d(:,:) 485 znam = 'syage'//'_htc'// zchar469 znam = 'syage'//'_htc'//TRIM(ADJUSTL(zchar)) 486 470 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 487 471 syage(:,:,jl) = z2d(:,:) 488 znam = 'sxxage'//'_htc'// zchar472 znam = 'sxxage'//'_htc'//TRIM(ADJUSTL(zchar)) 489 473 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 490 474 sxxage(:,:,jl) = z2d(:,:) 491 znam = 'syyage'//'_htc'// zchar475 znam = 'syyage'//'_htc'//TRIM(ADJUSTL(zchar)) 492 476 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 493 477 syyage(:,:,jl) = z2d(:,:) 494 znam = 'sxyage'//'_htc'// zchar478 znam = 'sxyage'//'_htc'//TRIM(ADJUSTL(zchar)) 495 479 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 496 480 sxyage(:,:,jl)= z2d(:,:) … … 504 488 505 489 DO jl = 1, jpl 506 WRITE(zchar,'(I 1)') jl490 WRITE(zchar,'(I2)') jl 507 491 DO jk = 1, nlay_i 508 WRITE(zchar1,'(I 1)') jk509 znam = 'sxe'//'_il'// zchar1//'_htc'//zchar492 WRITE(zchar1,'(I2)') jk 493 znam = 'sxe'//'_il'//TRIM(ADJUSTL(zchar1))//'_htc'//TRIM(ADJUSTL(zchar)) 510 494 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 511 495 sxe(:,:,jk,jl) = z2d(:,:) 512 znam = 'sye'//'_il'// zchar1//'_htc'//zchar496 znam = 'sye'//'_il'//TRIM(ADJUSTL(zchar1))//'_htc'//TRIM(ADJUSTL(zchar)) 513 497 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 514 498 sye(:,:,jk,jl) = z2d(:,:) 515 znam = 'sxxe'//'_il'// zchar1//'_htc'//zchar499 znam = 'sxxe'//'_il'//TRIM(ADJUSTL(zchar1))//'_htc'//TRIM(ADJUSTL(zchar)) 516 500 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 517 501 sxxe(:,:,jk,jl) = z2d(:,:) 518 znam = 'syye'//'_il'// zchar1//'_htc'//zchar502 znam = 'syye'//'_il'//TRIM(ADJUSTL(zchar1))//'_htc'//TRIM(ADJUSTL(zchar)) 519 503 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 520 504 syye(:,:,jk,jl) = z2d(:,:) 521 znam = 'sxye'//'_il'// zchar1//'_htc'//zchar505 znam = 'sxye'//'_il'//TRIM(ADJUSTL(zchar1))//'_htc'//TRIM(ADJUSTL(zchar)) 522 506 CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 523 507 sxye(:,:,jk,jl) = z2d(:,:)
Note: See TracChangeset
for help on using the changeset viewer.