File |
Line number |
Procedure |
Code |
./pkg/admtlm/admtlm_dsvd2model.F |
333 |
ADMTLM_DSVD2MODEL |
ivartype = 1 |
./pkg/admtlm/admtlm_dsvd2model.F |
336 |
ADMTLM_DSVD2MODEL |
call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype, |
./pkg/admtlm/admtlm_dsvd2model.F |
342 |
ADMTLM_DSVD2MODEL |
ivartype = 2 |
./pkg/admtlm/admtlm_dsvd2model.F |
345 |
ADMTLM_DSVD2MODEL |
call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype, |
./pkg/admtlm/admtlm_dsvd2model.F |
351 |
ADMTLM_DSVD2MODEL |
ivartype = 3 |
./pkg/admtlm/admtlm_dsvd2model.F |
354 |
ADMTLM_DSVD2MODEL |
call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype, |
./pkg/admtlm/admtlm_dsvd2model.F |
360 |
ADMTLM_DSVD2MODEL |
ivartype = 4 |
./pkg/admtlm/admtlm_dsvd2model.F |
363 |
ADMTLM_DSVD2MODEL |
call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype, |
./pkg/admtlm/admtlm_dsvd2model.F |
369 |
ADMTLM_DSVD2MODEL |
ivartype = 5 |
./pkg/admtlm/admtlm_dsvd2model.F |
372 |
ADMTLM_DSVD2MODEL |
call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype, |
./pkg/admtlm/admtlm_dsvd2model.F |
378 |
ADMTLM_DSVD2MODEL |
ivartype = 6 |
./pkg/admtlm/admtlm_dsvd2model.F |
381 |
ADMTLM_DSVD2MODEL |
call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype, |
./pkg/admtlm/admtlm_dsvd2model.F |
387 |
ADMTLM_DSVD2MODEL |
ivartype = 7 |
./pkg/admtlm/admtlm_dsvd2model.F |
390 |
ADMTLM_DSVD2MODEL |
call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype, |
./pkg/admtlm/admtlm_dsvd2model.F |
396 |
ADMTLM_DSVD2MODEL |
ivartype = 8 |
./pkg/admtlm/admtlm_dsvd2model.F |
399 |
ADMTLM_DSVD2MODEL |
call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype, |
./pkg/admtlm/admtlm_dsvd2model.F |
405 |
ADMTLM_DSVD2MODEL |
ivartype = 9 |
./pkg/admtlm/admtlm_dsvd2model.F |
408 |
ADMTLM_DSVD2MODEL |
call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype, |
./pkg/admtlm/admtlm_dsvd2model.F |
414 |
ADMTLM_DSVD2MODEL |
ivartype = 10 |
./pkg/admtlm/admtlm_dsvd2model.F |
417 |
ADMTLM_DSVD2MODEL |
call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype, |
./pkg/admtlm/admtlm_dsvd2model.F |
423 |
ADMTLM_DSVD2MODEL |
ivartype = 11 |
./pkg/admtlm/admtlm_dsvd2model.F |
427 |
ADMTLM_DSVD2MODEL |
& cunit, ivartype, fname_obcsn(ictrlgrad), "maskobcsn", |
./pkg/admtlm/admtlm_dsvd2model.F |
432 |
ADMTLM_DSVD2MODEL |
ivartype = 12 |
./pkg/admtlm/admtlm_dsvd2model.F |
436 |
ADMTLM_DSVD2MODEL |
& cunit, ivartype, fname_obcss(ictrlgrad), "maskobcss", |
./pkg/admtlm/admtlm_dsvd2model.F |
441 |
ADMTLM_DSVD2MODEL |
ivartype = 13 |
./pkg/admtlm/admtlm_dsvd2model.F |
445 |
ADMTLM_DSVD2MODEL |
& cunit, ivartype, fname_obcsw(ictrlgrad), "maskobcsw", |
./pkg/admtlm/admtlm_dsvd2model.F |
450 |
ADMTLM_DSVD2MODEL |
ivartype = 14 |
./pkg/admtlm/admtlm_dsvd2model.F |
454 |
ADMTLM_DSVD2MODEL |
& cunit, ivartype, fname_obcse(ictrlgrad), "maskobcse", |
./pkg/admtlm/admtlm_dsvd2model.F |
459 |
ADMTLM_DSVD2MODEL |
ivartype = 15 |
./pkg/admtlm/admtlm_dsvd2model.F |
462 |
ADMTLM_DSVD2MODEL |
call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype, |
./pkg/admtlm/admtlm_dsvd2model.F |
468 |
ADMTLM_DSVD2MODEL |
ivartype = 16 |
./pkg/admtlm/admtlm_dsvd2model.F |
471 |
ADMTLM_DSVD2MODEL |
call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype, |
./pkg/admtlm/admtlm_dsvd2model.F |
477 |
ADMTLM_DSVD2MODEL |
ivartype = 17 |
./pkg/admtlm/admtlm_dsvd2model.F |
480 |
ADMTLM_DSVD2MODEL |
call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype, |
./pkg/admtlm/admtlm_dsvd2model.F |
486 |
ADMTLM_DSVD2MODEL |
ivartype = 18 |
./pkg/admtlm/admtlm_dsvd2model.F |
489 |
ADMTLM_DSVD2MODEL |
call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype, |
./pkg/admtlm/admtlm_dsvd2model.F |
495 |
ADMTLM_DSVD2MODEL |
ivartype = 19 |
./pkg/admtlm/admtlm_dsvd2model.F |
498 |
ADMTLM_DSVD2MODEL |
call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype, |
./pkg/admtlm/admtlm_dsvd2model.F |
504 |
ADMTLM_DSVD2MODEL |
ivartype = 20 |
./pkg/admtlm/admtlm_dsvd2model.F |
507 |
ADMTLM_DSVD2MODEL |
call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype, |
./pkg/admtlm/admtlm_dsvd2model.F |
513 |
ADMTLM_DSVD2MODEL |
ivartype = 21 |
./pkg/admtlm/admtlm_dsvd2model.F |
516 |
ADMTLM_DSVD2MODEL |
call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype, |
./pkg/admtlm/admtlm_dsvd2model.F |
522 |
ADMTLM_DSVD2MODEL |
ivartype = 22 |
./pkg/admtlm/admtlm_dsvd2model.F |
525 |
ADMTLM_DSVD2MODEL |
call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype, |
./pkg/admtlm/admtlm_dsvd2model.F |
531 |
ADMTLM_DSVD2MODEL |
ivartype = 23 |
./pkg/admtlm/admtlm_dsvd2model.F |
534 |
ADMTLM_DSVD2MODEL |
call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype, |
./pkg/admtlm/admtlm_dsvd2model.F |
540 |
ADMTLM_DSVD2MODEL |
ivartype = 25 |
./pkg/admtlm/admtlm_dsvd2model.F |
543 |
ADMTLM_DSVD2MODEL |
call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype, |
./pkg/admtlm/admtlm_dsvd2model.F |
547 |
ADMTLM_DSVD2MODEL |
ivartype = 26 |
./pkg/admtlm/admtlm_dsvd2model.F |
550 |
ADMTLM_DSVD2MODEL |
call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype, |
./pkg/admtlm/admtlm_dsvd2model.F |
556 |
ADMTLM_DSVD2MODEL |
ivartype = 27 |
./pkg/admtlm/admtlm_dsvd2model.F |
559 |
ADMTLM_DSVD2MODEL |
call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype, |
./pkg/admtlm/admtlm_dsvd2model.F |
565 |
ADMTLM_DSVD2MODEL |
ivartype = 28 |
./pkg/admtlm/admtlm_dsvd2model.F |
568 |
ADMTLM_DSVD2MODEL |
call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype, |
./pkg/admtlm/admtlm_dsvd2model.F |
574 |
ADMTLM_DSVD2MODEL |
ivartype = 29 |
./pkg/admtlm/admtlm_dsvd2model.F |
577 |
ADMTLM_DSVD2MODEL |
call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype, |
./pkg/admtlm/admtlm_dsvd2model.F |
583 |
ADMTLM_DSVD2MODEL |
ivartype = 30 |
./pkg/admtlm/admtlm_dsvd2model.F |
586 |
ADMTLM_DSVD2MODEL |
call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype, |
./pkg/admtlm/admtlm_dsvd2model.F |
592 |
ADMTLM_DSVD2MODEL |
ivartype = 31 |
./pkg/admtlm/admtlm_dsvd2model.F |
595 |
ADMTLM_DSVD2MODEL |
call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype, |
./pkg/admtlm/admtlm_dsvd2model.F |
601 |
ADMTLM_DSVD2MODEL |
ivartype = 32 |
./pkg/admtlm/admtlm_dsvd2model.F |
604 |
ADMTLM_DSVD2MODEL |
call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype, |
./pkg/admtlm/admtlm_dsvd2model.F |
610 |
ADMTLM_DSVD2MODEL |
ivartype = 33 |
./pkg/admtlm/admtlm_dsvd2model.F |
613 |
ADMTLM_DSVD2MODEL |
call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype, |
./pkg/admtlm/admtlm_dsvd2model.F |
619 |
ADMTLM_DSVD2MODEL |
ivartype = 34 |
./pkg/admtlm/admtlm_dsvd2model.F |
622 |
ADMTLM_DSVD2MODEL |
call CTRL_SET_UNPACK_XY( lxxadxx, cunit, ivartype, |
./pkg/admtlm/admtlm_dsvd2model.F |
76 |
ADMTLM_DSVD2MODEL |
integer ivartype |
./pkg/admtlm/admtlm_model2dsvd.F |
246 |
ADMTLM_MODEL2DSVD |
ivartype = 1 |
./pkg/admtlm/admtlm_model2dsvd.F |
250 |
ADMTLM_MODEL2DSVD |
& cunit, ivartype, fname_theta(ictrlgrad), "maskCtrlC", |
./pkg/admtlm/admtlm_model2dsvd.F |
255 |
ADMTLM_MODEL2DSVD |
ivartype = 2 |
./pkg/admtlm/admtlm_model2dsvd.F |
259 |
ADMTLM_MODEL2DSVD |
& cunit, ivartype, fname_salt(ictrlgrad), "maskCtrlC", |
./pkg/admtlm/admtlm_model2dsvd.F |
264 |
ADMTLM_MODEL2DSVD |
ivartype = 3 |
./pkg/admtlm/admtlm_model2dsvd.F |
268 |
ADMTLM_MODEL2DSVD |
& cunit, ivartype, fname_hflux(ictrlgrad), "maskCtrlC", |
./pkg/admtlm/admtlm_model2dsvd.F |
273 |
ADMTLM_MODEL2DSVD |
ivartype = 4 |
./pkg/admtlm/admtlm_model2dsvd.F |
277 |
ADMTLM_MODEL2DSVD |
& cunit, ivartype, fname_sflux(ictrlgrad), "maskCtrlC", |
./pkg/admtlm/admtlm_model2dsvd.F |
282 |
ADMTLM_MODEL2DSVD |
ivartype = 5 |
./pkg/admtlm/admtlm_model2dsvd.F |
286 |
ADMTLM_MODEL2DSVD |
& cunit, ivartype, fname_tauu(ictrlgrad), "maskCtrlW", |
./pkg/admtlm/admtlm_model2dsvd.F |
291 |
ADMTLM_MODEL2DSVD |
ivartype = 6 |
./pkg/admtlm/admtlm_model2dsvd.F |
295 |
ADMTLM_MODEL2DSVD |
& cunit, ivartype, fname_tauv(ictrlgrad), "maskCtrlS", |
./pkg/admtlm/admtlm_model2dsvd.F |
300 |
ADMTLM_MODEL2DSVD |
ivartype = 7 |
./pkg/admtlm/admtlm_model2dsvd.F |
304 |
ADMTLM_MODEL2DSVD |
& cunit, ivartype, fname_atemp(ictrlgrad), "maskCtrlC", |
./pkg/admtlm/admtlm_model2dsvd.F |
309 |
ADMTLM_MODEL2DSVD |
ivartype = 8 |
./pkg/admtlm/admtlm_model2dsvd.F |
313 |
ADMTLM_MODEL2DSVD |
& cunit, ivartype, fname_aqh(ictrlgrad), "maskCtrlC", |
./pkg/admtlm/admtlm_model2dsvd.F |
318 |
ADMTLM_MODEL2DSVD |
ivartype = 9 |
./pkg/admtlm/admtlm_model2dsvd.F |
322 |
ADMTLM_MODEL2DSVD |
& cunit, ivartype, fname_uwind(ictrlgrad), "maskCtrlC", |
./pkg/admtlm/admtlm_model2dsvd.F |
327 |
ADMTLM_MODEL2DSVD |
ivartype = 10 |
./pkg/admtlm/admtlm_model2dsvd.F |
331 |
ADMTLM_MODEL2DSVD |
& cunit, ivartype, fname_vwind(ictrlgrad), "maskCtrlC", |
./pkg/admtlm/admtlm_model2dsvd.F |
336 |
ADMTLM_MODEL2DSVD |
ivartype = 11 |
./pkg/admtlm/admtlm_model2dsvd.F |
340 |
ADMTLM_MODEL2DSVD |
& cunit, ivartype, fname_obcsn(ictrlgrad), "maskobcsn", |
./pkg/admtlm/admtlm_model2dsvd.F |
345 |
ADMTLM_MODEL2DSVD |
ivartype = 12 |
./pkg/admtlm/admtlm_model2dsvd.F |
349 |
ADMTLM_MODEL2DSVD |
& cunit, ivartype, fname_obcss(ictrlgrad), "maskobcss", |
./pkg/admtlm/admtlm_model2dsvd.F |
354 |
ADMTLM_MODEL2DSVD |
ivartype = 13 |
./pkg/admtlm/admtlm_model2dsvd.F |
358 |
ADMTLM_MODEL2DSVD |
& cunit, ivartype, fname_obcsw(ictrlgrad), "maskobcsw", |
./pkg/admtlm/admtlm_model2dsvd.F |
363 |
ADMTLM_MODEL2DSVD |
ivartype = 14 |
./pkg/admtlm/admtlm_model2dsvd.F |
367 |
ADMTLM_MODEL2DSVD |
& cunit, ivartype, fname_obcse(ictrlgrad), "maskobcse", |
./pkg/admtlm/admtlm_model2dsvd.F |
372 |
ADMTLM_MODEL2DSVD |
ivartype = 15 |
./pkg/admtlm/admtlm_model2dsvd.F |
376 |
ADMTLM_MODEL2DSVD |
& cunit, ivartype, fname_diffkr(ictrlgrad), "maskCtrlC", |
./pkg/admtlm/admtlm_model2dsvd.F |
381 |
ADMTLM_MODEL2DSVD |
ivartype = 16 |
./pkg/admtlm/admtlm_model2dsvd.F |
385 |
ADMTLM_MODEL2DSVD |
& cunit, ivartype, fname_kapgm(ictrlgrad), "maskCtrlC", |
./pkg/admtlm/admtlm_model2dsvd.F |
390 |
ADMTLM_MODEL2DSVD |
ivartype = 17 |
./pkg/admtlm/admtlm_model2dsvd.F |
394 |
ADMTLM_MODEL2DSVD |
& cunit, ivartype, fname_tr1(ictrlgrad), "maskCtrlC", |
./pkg/admtlm/admtlm_model2dsvd.F |
399 |
ADMTLM_MODEL2DSVD |
ivartype = 18 |
./pkg/admtlm/admtlm_model2dsvd.F |
403 |
ADMTLM_MODEL2DSVD |
& cunit, ivartype, fname_sst(ictrlgrad), "maskCtrlC", |
./pkg/admtlm/admtlm_model2dsvd.F |
408 |
ADMTLM_MODEL2DSVD |
ivartype = 19 |
./pkg/admtlm/admtlm_model2dsvd.F |
412 |
ADMTLM_MODEL2DSVD |
& cunit, ivartype, fname_sss(ictrlgrad), "maskCtrlC", |
./pkg/admtlm/admtlm_model2dsvd.F |
417 |
ADMTLM_MODEL2DSVD |
ivartype = 20 |
./pkg/admtlm/admtlm_model2dsvd.F |
421 |
ADMTLM_MODEL2DSVD |
& cunit, ivartype, fname_depth(ictrlgrad), "maskCtrlC", |
./pkg/admtlm/admtlm_model2dsvd.F |
426 |
ADMTLM_MODEL2DSVD |
ivartype = 21 |
./pkg/admtlm/admtlm_model2dsvd.F |
430 |
ADMTLM_MODEL2DSVD |
& cunit, ivartype, fname_efluxy(ictrlgrad), "maskCtrlS", |
./pkg/admtlm/admtlm_model2dsvd.F |
435 |
ADMTLM_MODEL2DSVD |
ivartype = 22 |
./pkg/admtlm/admtlm_model2dsvd.F |
439 |
ADMTLM_MODEL2DSVD |
& cunit, ivartype, fname_efluxp(ictrlgrad), "maskhFacV", |
./pkg/admtlm/admtlm_model2dsvd.F |
444 |
ADMTLM_MODEL2DSVD |
ivartype = 23 |
./pkg/admtlm/admtlm_model2dsvd.F |
448 |
ADMTLM_MODEL2DSVD |
& cunit, ivartype, fname_bottomdrag(ictrlgrad), "maskCtrlC", |
./pkg/admtlm/admtlm_model2dsvd.F |
453 |
ADMTLM_MODEL2DSVD |
ivartype = 25 |
./pkg/admtlm/admtlm_model2dsvd.F |
457 |
ADMTLM_MODEL2DSVD |
& cunit, ivartype, fname_edtaux(ictrlgrad), "maskCtrlW", |
./pkg/admtlm/admtlm_model2dsvd.F |
460 |
ADMTLM_MODEL2DSVD |
ivartype = 26 |
./pkg/admtlm/admtlm_model2dsvd.F |
464 |
ADMTLM_MODEL2DSVD |
& cunit, ivartype, fname_edtauy(ictrlgrad), "maskCtrlS", |
./pkg/admtlm/admtlm_model2dsvd.F |
469 |
ADMTLM_MODEL2DSVD |
ivartype = 27 |
./pkg/admtlm/admtlm_model2dsvd.F |
473 |
ADMTLM_MODEL2DSVD |
& cunit, ivartype, fname_uvel(ictrlgrad), "maskCtrlW", |
./pkg/admtlm/admtlm_model2dsvd.F |
478 |
ADMTLM_MODEL2DSVD |
ivartype = 28 |
./pkg/admtlm/admtlm_model2dsvd.F |
482 |
ADMTLM_MODEL2DSVD |
& cunit, ivartype, fname_vvel(ictrlgrad), "maskCtrlS", |
./pkg/admtlm/admtlm_model2dsvd.F |
487 |
ADMTLM_MODEL2DSVD |
ivartype = 29 |
./pkg/admtlm/admtlm_model2dsvd.F |
491 |
ADMTLM_MODEL2DSVD |
& cunit, ivartype, fname_etan(ictrlgrad), "maskCtrlC", |
./pkg/admtlm/admtlm_model2dsvd.F |
496 |
ADMTLM_MODEL2DSVD |
ivartype = 30 |
./pkg/admtlm/admtlm_model2dsvd.F |
500 |
ADMTLM_MODEL2DSVD |
& cunit, ivartype, fname_relaxsst(ictrlgrad), "maskCtrlC", |
./pkg/admtlm/admtlm_model2dsvd.F |
505 |
ADMTLM_MODEL2DSVD |
ivartype = 31 |
./pkg/admtlm/admtlm_model2dsvd.F |
509 |
ADMTLM_MODEL2DSVD |
& cunit, ivartype, fname_relaxsss(ictrlgrad), "maskCtrlC", |
./pkg/admtlm/admtlm_model2dsvd.F |
514 |
ADMTLM_MODEL2DSVD |
ivartype = 32 |
./pkg/admtlm/admtlm_model2dsvd.F |
518 |
ADMTLM_MODEL2DSVD |
& cunit, ivartype, fname_precip(ictrlgrad), "maskCtrlC", |
./pkg/admtlm/admtlm_model2dsvd.F |
523 |
ADMTLM_MODEL2DSVD |
ivartype = 33 |
./pkg/admtlm/admtlm_model2dsvd.F |
527 |
ADMTLM_MODEL2DSVD |
& cunit, ivartype, fname_swflux(ictrlgrad), "maskCtrlC", |
./pkg/admtlm/admtlm_model2dsvd.F |
532 |
ADMTLM_MODEL2DSVD |
ivartype = 34 |
./pkg/admtlm/admtlm_model2dsvd.F |
536 |
ADMTLM_MODEL2DSVD |
& cunit, ivartype, fname_swdown(ictrlgrad), "maskCtrlC", |
./pkg/admtlm/admtlm_model2dsvd.F |
75 |
ADMTLM_MODEL2DSVD |
integer ivartype |
./pkg/ctrl/ctrl_pack.F |
280 |
CTRL_PACK |
ivartype = 11 |
./pkg/ctrl/ctrl_pack.F |
284 |
CTRL_PACK |
& cunit, ivartype, fname_obcsn(ictrlgrad), "maskobcsn", |
./pkg/ctrl/ctrl_pack.F |
288 |
CTRL_PACK |
ivartype = 12 |
./pkg/ctrl/ctrl_pack.F |
292 |
CTRL_PACK |
& cunit, ivartype, fname_obcss(ictrlgrad), "maskobcss", |
./pkg/ctrl/ctrl_pack.F |
296 |
CTRL_PACK |
ivartype = 13 |
./pkg/ctrl/ctrl_pack.F |
300 |
CTRL_PACK |
& cunit, ivartype, fname_obcsw(ictrlgrad), "maskobcsw", |
./pkg/ctrl/ctrl_pack.F |
304 |
CTRL_PACK |
ivartype = 14 |
./pkg/ctrl/ctrl_pack.F |
308 |
CTRL_PACK |
& cunit, ivartype, fname_obcse(ictrlgrad), "maskobcse", |
./pkg/ctrl/ctrl_pack.F |
316 |
CTRL_PACK |
ivartype = 1 |
./pkg/ctrl/ctrl_pack.F |
320 |
CTRL_PACK |
& cunit, ivartype, fname_theta(ictrlgrad), "maskCtrlC", |
./pkg/ctrl/ctrl_pack.F |
325 |
CTRL_PACK |
ivartype = 2 |
./pkg/ctrl/ctrl_pack.F |
329 |
CTRL_PACK |
& cunit, ivartype, fname_salt(ictrlgrad), "maskCtrlC", |
./pkg/ctrl/ctrl_pack.F |
334 |
CTRL_PACK |
ivartype = 3 |
./pkg/ctrl/ctrl_pack.F |
338 |
CTRL_PACK |
& cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_pack.F |
344 |
CTRL_PACK |
ivartype = 4 |
./pkg/ctrl/ctrl_pack.F |
348 |
CTRL_PACK |
& cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_pack.F |
357 |
CTRL_PACK |
ivartype = 5 |
./pkg/ctrl/ctrl_pack.F |
362 |
CTRL_PACK |
& cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_pack.F |
365 |
CTRL_PACK |
& cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_pack.F |
378 |
CTRL_PACK |
ivartype = 6 |
./pkg/ctrl/ctrl_pack.F |
383 |
CTRL_PACK |
& cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_pack.F |
386 |
CTRL_PACK |
& cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_pack.F |
396 |
CTRL_PACK |
ivartype = 7 |
./pkg/ctrl/ctrl_pack.F |
400 |
CTRL_PACK |
& cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_pack.F |
406 |
CTRL_PACK |
ivartype = 8 |
./pkg/ctrl/ctrl_pack.F |
410 |
CTRL_PACK |
& cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_pack.F |
419 |
CTRL_PACK |
ivartype = 9 |
./pkg/ctrl/ctrl_pack.F |
423 |
CTRL_PACK |
& cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_pack.F |
435 |
CTRL_PACK |
ivartype = 10 |
./pkg/ctrl/ctrl_pack.F |
439 |
CTRL_PACK |
& cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_pack.F |
448 |
CTRL_PACK |
ivartype = 15 |
./pkg/ctrl/ctrl_pack.F |
452 |
CTRL_PACK |
& cunit, ivartype, fname_diffkr(ictrlgrad), "maskCtrlC", |
./pkg/ctrl/ctrl_pack.F |
457 |
CTRL_PACK |
ivartype = 16 |
./pkg/ctrl/ctrl_pack.F |
461 |
CTRL_PACK |
& cunit, ivartype, fname_kapgm(ictrlgrad), "maskCtrlC", |
./pkg/ctrl/ctrl_pack.F |
466 |
CTRL_PACK |
ivartype = 17 |
./pkg/ctrl/ctrl_pack.F |
470 |
CTRL_PACK |
& cunit, ivartype, fname_tr1(ictrlgrad), "maskCtrlC", |
./pkg/ctrl/ctrl_pack.F |
475 |
CTRL_PACK |
ivartype = 18 |
./pkg/ctrl/ctrl_pack.F |
479 |
CTRL_PACK |
& cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_pack.F |
485 |
CTRL_PACK |
ivartype = 19 |
./pkg/ctrl/ctrl_pack.F |
489 |
CTRL_PACK |
& cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_pack.F |
495 |
CTRL_PACK |
ivartype = 20 |
./pkg/ctrl/ctrl_pack.F |
499 |
CTRL_PACK |
& cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_pack.F |
505 |
CTRL_PACK |
ivartype = 21 |
./pkg/ctrl/ctrl_pack.F |
509 |
CTRL_PACK |
& cunit, ivartype, fname_efluxy(ictrlgrad), "maskCtrlS", |
./pkg/ctrl/ctrl_pack.F |
514 |
CTRL_PACK |
ivartype = 22 |
./pkg/ctrl/ctrl_pack.F |
518 |
CTRL_PACK |
& cunit, ivartype, fname_efluxp(ictrlgrad), "maskhFacV", |
./pkg/ctrl/ctrl_pack.F |
523 |
CTRL_PACK |
ivartype = 23 |
./pkg/ctrl/ctrl_pack.F |
527 |
CTRL_PACK |
& cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_pack.F |
533 |
CTRL_PACK |
ivartype = 24 |
./pkg/ctrl/ctrl_pack.F |
537 |
CTRL_PACK |
& cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_pack.F |
543 |
CTRL_PACK |
ivartype = 25 |
./pkg/ctrl/ctrl_pack.F |
547 |
CTRL_PACK |
& cunit, ivartype, fname_edtaux(ictrlgrad), "maskCtrlW", |
./pkg/ctrl/ctrl_pack.F |
550 |
CTRL_PACK |
ivartype = 26 |
./pkg/ctrl/ctrl_pack.F |
554 |
CTRL_PACK |
& cunit, ivartype, fname_edtauy(ictrlgrad), "maskCtrlS", |
./pkg/ctrl/ctrl_pack.F |
559 |
CTRL_PACK |
ivartype = 27 |
./pkg/ctrl/ctrl_pack.F |
563 |
CTRL_PACK |
& cunit, ivartype, fname_uvel(ictrlgrad), "maskCtrlW", |
./pkg/ctrl/ctrl_pack.F |
568 |
CTRL_PACK |
ivartype = 28 |
./pkg/ctrl/ctrl_pack.F |
572 |
CTRL_PACK |
& cunit, ivartype, fname_vvel(ictrlgrad), "maskCtrlS", |
./pkg/ctrl/ctrl_pack.F |
577 |
CTRL_PACK |
ivartype = 29 |
./pkg/ctrl/ctrl_pack.F |
581 |
CTRL_PACK |
& cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_pack.F |
587 |
CTRL_PACK |
ivartype = 30 |
./pkg/ctrl/ctrl_pack.F |
591 |
CTRL_PACK |
& cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_pack.F |
597 |
CTRL_PACK |
ivartype = 31 |
./pkg/ctrl/ctrl_pack.F |
601 |
CTRL_PACK |
& cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_pack.F |
607 |
CTRL_PACK |
ivartype = 32 |
./pkg/ctrl/ctrl_pack.F |
611 |
CTRL_PACK |
& cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_pack.F |
617 |
CTRL_PACK |
ivartype = 33 |
./pkg/ctrl/ctrl_pack.F |
621 |
CTRL_PACK |
& cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_pack.F |
627 |
CTRL_PACK |
ivartype = 34 |
./pkg/ctrl/ctrl_pack.F |
631 |
CTRL_PACK |
& cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_pack.F |
637 |
CTRL_PACK |
ivartype = 35 |
./pkg/ctrl/ctrl_pack.F |
641 |
CTRL_PACK |
& cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_pack.F |
647 |
CTRL_PACK |
ivartype = 36 |
./pkg/ctrl/ctrl_pack.F |
651 |
CTRL_PACK |
& cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_pack.F |
657 |
CTRL_PACK |
ivartype = 37 |
./pkg/ctrl/ctrl_pack.F |
661 |
CTRL_PACK |
& cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_pack.F |
667 |
CTRL_PACK |
ivartype = 38 |
./pkg/ctrl/ctrl_pack.F |
671 |
CTRL_PACK |
& cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_pack.F |
677 |
CTRL_PACK |
ivartype = 39 |
./pkg/ctrl/ctrl_pack.F |
681 |
CTRL_PACK |
& cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_pack.F |
687 |
CTRL_PACK |
ivartype = 40 |
./pkg/ctrl/ctrl_pack.F |
691 |
CTRL_PACK |
& cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_pack.F |
697 |
CTRL_PACK |
ivartype = 41 |
./pkg/ctrl/ctrl_pack.F |
701 |
CTRL_PACK |
& cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_pack.F |
707 |
CTRL_PACK |
ivartype = 42 |
./pkg/ctrl/ctrl_pack.F |
711 |
CTRL_PACK |
& cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_pack.F |
717 |
CTRL_PACK |
ivartype = 43 |
./pkg/ctrl/ctrl_pack.F |
721 |
CTRL_PACK |
& cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_pack.F |
727 |
CTRL_PACK |
ivartype = 44 |
./pkg/ctrl/ctrl_pack.F |
731 |
CTRL_PACK |
& cunit, ivartype, fname_kapredi(ictrlgrad), "maskCtrlC", |
./pkg/ctrl/ctrl_pack.F |
736 |
CTRL_PACK |
ivartype = 45 |
./pkg/ctrl/ctrl_pack.F |
740 |
CTRL_PACK |
& cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_pack.F |
752 |
CTRL_PACK |
ivartype = 100+iarr |
./pkg/ctrl/ctrl_pack.F |
756 |
CTRL_PACK |
& cunit, ivartype, genarr2dPrecond(iarr), |
./pkg/ctrl/ctrl_pack.F |
769 |
CTRL_PACK |
ivartype = 200+iarr |
./pkg/ctrl/ctrl_pack.F |
773 |
CTRL_PACK |
& cunit, ivartype, fname_local(ictrlgrad), "maskCtrlC", |
./pkg/ctrl/ctrl_pack.F |
785 |
CTRL_PACK |
ivartype = 300+iarr |
./pkg/ctrl/ctrl_pack.F |
789 |
CTRL_PACK |
& cunit, ivartype, gentim2dPrecond(iarr), |
./pkg/ctrl/ctrl_pack.F |
89 |
CTRL_PACK |
integer ivartype |
./pkg/ctrl/ctrl_set_globfld_xy.F |
103 |
CTRL_SET_GLOBFLD_XY |
do irec = nrec_nl*Nr+1, ncvarrecs(ivartype) |
./pkg/ctrl/ctrl_set_globfld_xy.F |
40 |
CTRL_SET_GLOBFLD_XY |
integer ivartype |
./pkg/ctrl/ctrl_set_globfld_xy.F |
8 |
CTRL_SET_GLOBFLD_XY |
I fname, ivartype, mythid ) |
./pkg/ctrl/ctrl_set_globfld_xy.F |
96 |
CTRL_SET_GLOBFLD_XY |
nrec_nl=int(ncvarrecs(ivartype)/Nr) |
./pkg/ctrl/ctrl_set_globfld_xyz.F |
35 |
CTRL_SET_GLOBFLD_XYZ |
integer ivartype |
./pkg/ctrl/ctrl_set_globfld_xyz.F |
80 |
CTRL_SET_GLOBFLD_XYZ |
do irec = 1, ncvarrecs(ivartype) |
./pkg/ctrl/ctrl_set_globfld_xyz.F |
8 |
CTRL_SET_GLOBFLD_XYZ |
I fname, ivartype, mythid ) |
./pkg/ctrl/ctrl_set_globfld_xz.F |
101 |
CTRL_SET_GLOBFLD_XZ |
nrec_nl = int(ncvarrecs(ivartype)/Ny) |
./pkg/ctrl/ctrl_set_globfld_xz.F |
110 |
CTRL_SET_GLOBFLD_XZ |
do irec = nrec_nl*Ny+1, ncvarrecs(ivartype) |
./pkg/ctrl/ctrl_set_globfld_xz.F |
40 |
CTRL_SET_GLOBFLD_XZ |
integer ivartype |
./pkg/ctrl/ctrl_set_globfld_xz.F |
8 |
CTRL_SET_GLOBFLD_XZ |
I fname, ivartype, mythid ) |
./pkg/ctrl/ctrl_set_globfld_yz.F |
102 |
CTRL_SET_GLOBFLD_YZ |
nrec_nl = int(ncvarrecs(ivartype)/Nx) |
./pkg/ctrl/ctrl_set_globfld_yz.F |
112 |
CTRL_SET_GLOBFLD_YZ |
do irec = nrec_nl*Nx+1, ncvarrecs(ivartype) |
./pkg/ctrl/ctrl_set_globfld_yz.F |
40 |
CTRL_SET_GLOBFLD_YZ |
integer ivartype |
./pkg/ctrl/ctrl_set_globfld_yz.F |
8 |
CTRL_SET_GLOBFLD_YZ |
I fname, ivartype, mythid ) |
./pkg/ctrl/ctrl_set_pack_xy.F |
125 |
CTRL_SET_PACK_XY |
& ivartype, '_', optimcycle, '.bin' |
./pkg/ctrl/ctrl_set_pack_xy.F |
128 |
CTRL_SET_PACK_XY |
& ivartype, '_', optimcycle, '.bin' |
./pkg/ctrl/ctrl_set_pack_xy.F |
132 |
CTRL_SET_PACK_XY |
& ivartype, '_', optimcycle, '.bin' |
./pkg/ctrl/ctrl_set_pack_xy.F |
135 |
CTRL_SET_PACK_XY |
& ivartype, '_', optimcycle, '.bin' |
./pkg/ctrl/ctrl_set_pack_xy.F |
176 |
CTRL_SET_PACK_XY |
nrec_nl=int(ncvarrecs(ivartype)/Nr) |
./pkg/ctrl/ctrl_set_pack_xy.F |
184 |
CTRL_SET_PACK_XY |
write(cunit) ncvarindex(ivartype) |
./pkg/ctrl/ctrl_set_pack_xy.F |
270 |
CTRL_SET_PACK_XY |
do irec = nrec_nl*Nr+1, ncvarrecs(ivartype) |
./pkg/ctrl/ctrl_set_pack_xy.F |
276 |
CTRL_SET_PACK_XY |
write(cunit) ncvarindex(ivartype) |
./pkg/ctrl/ctrl_set_pack_xy.F |
35 |
CTRL_SET_PACK_XY |
integer ivartype |
./pkg/ctrl/ctrl_set_pack_xy.F |
449 |
CTRL_SET_PACK_XY |
do irec = 1, ncvarrecs(ivartype) |
./pkg/ctrl/ctrl_set_pack_xy.F |
512 |
CTRL_SET_PACK_XY |
write(cunit) ncvarindex(ivartype) |
./pkg/ctrl/ctrl_set_pack_xy.F |
7 |
CTRL_SET_PACK_XY |
& cunit, ivartype, precondScalar, |
./pkg/ctrl/ctrl_set_pack_xyz.F |
135 |
CTRL_SET_PACK_XYZ |
& ivartype, '_', optimcycle, '.bin' |
./pkg/ctrl/ctrl_set_pack_xyz.F |
138 |
CTRL_SET_PACK_XYZ |
& ivartype, '_', optimcycle, '.bin' |
./pkg/ctrl/ctrl_set_pack_xyz.F |
142 |
CTRL_SET_PACK_XYZ |
& ivartype, '_', optimcycle, '.bin' |
./pkg/ctrl/ctrl_set_pack_xyz.F |
145 |
CTRL_SET_PACK_XYZ |
& ivartype, '_', optimcycle, '.bin' |
./pkg/ctrl/ctrl_set_pack_xyz.F |
188 |
CTRL_SET_PACK_XYZ |
do irec = 1, ncvarrecs(ivartype) |
./pkg/ctrl/ctrl_set_pack_xyz.F |
194 |
CTRL_SET_PACK_XYZ |
write(cunit) ncvarindex(ivartype) |
./pkg/ctrl/ctrl_set_pack_xyz.F |
364 |
CTRL_SET_PACK_XYZ |
do irec = 1, ncvarrecs(ivartype) |
./pkg/ctrl/ctrl_set_pack_xyz.F |
39 |
CTRL_SET_PACK_XYZ |
integer ivartype |
./pkg/ctrl/ctrl_set_pack_xyz.F |
431 |
CTRL_SET_PACK_XYZ |
write(cunit) ncvarindex(ivartype) |
./pkg/ctrl/ctrl_set_pack_xyz.F |
7 |
CTRL_SET_PACK_XYZ |
& cunit, ivartype, fname, masktype, weighttype, |
./pkg/ctrl/ctrl_set_pack_xz.F |
142 |
CTRL_SET_PACK_XZ |
& ivartype, '_', optimcycle, '.bin' |
./pkg/ctrl/ctrl_set_pack_xz.F |
145 |
CTRL_SET_PACK_XZ |
& ivartype, '_', optimcycle, '.bin' |
./pkg/ctrl/ctrl_set_pack_xz.F |
149 |
CTRL_SET_PACK_XZ |
& ivartype, '_', optimcycle, '.bin' |
./pkg/ctrl/ctrl_set_pack_xz.F |
152 |
CTRL_SET_PACK_XZ |
& ivartype, '_', optimcycle, '.bin' |
./pkg/ctrl/ctrl_set_pack_xz.F |
183 |
CTRL_SET_PACK_XZ |
nrec_nl = int(ncvarrecs(ivartype)/Ny) |
./pkg/ctrl/ctrl_set_pack_xz.F |
191 |
CTRL_SET_PACK_XZ |
write(cunit) ncvarindex(ivartype) |
./pkg/ctrl/ctrl_set_pack_xz.F |
259 |
CTRL_SET_PACK_XZ |
do irec = nrec_nl*ny+1, ncvarrecs(ivartype) |
./pkg/ctrl/ctrl_set_pack_xz.F |
266 |
CTRL_SET_PACK_XZ |
write(cunit) ncvarindex(ivartype) |
./pkg/ctrl/ctrl_set_pack_xz.F |
43 |
CTRL_SET_PACK_XZ |
integer ivartype |
./pkg/ctrl/ctrl_set_pack_xz.F |
7 |
CTRL_SET_PACK_XZ |
& cunit, ivartype, fname, masktype,weighttype, |
./pkg/ctrl/ctrl_set_pack_yz.F |
142 |
CTRL_SET_PACK_YZ |
& ivartype, '_', optimcycle, '.bin' |
./pkg/ctrl/ctrl_set_pack_yz.F |
145 |
CTRL_SET_PACK_YZ |
& ivartype, '_', optimcycle, '.bin' |
./pkg/ctrl/ctrl_set_pack_yz.F |
149 |
CTRL_SET_PACK_YZ |
& ivartype, '_', optimcycle, '.bin' |
./pkg/ctrl/ctrl_set_pack_yz.F |
152 |
CTRL_SET_PACK_YZ |
& ivartype, '_', optimcycle, '.bin' |
./pkg/ctrl/ctrl_set_pack_yz.F |
183 |
CTRL_SET_PACK_YZ |
nrec_nl = int(ncvarrecs(ivartype)/Nx) |
./pkg/ctrl/ctrl_set_pack_yz.F |
194 |
CTRL_SET_PACK_YZ |
write(cunit) ncvarindex(ivartype) |
./pkg/ctrl/ctrl_set_pack_yz.F |
263 |
CTRL_SET_PACK_YZ |
do irec = nrec_nl*nx+1, ncvarrecs(ivartype) |
./pkg/ctrl/ctrl_set_pack_yz.F |
270 |
CTRL_SET_PACK_YZ |
write(cunit) ncvarindex(ivartype) |
./pkg/ctrl/ctrl_set_pack_yz.F |
43 |
CTRL_SET_PACK_YZ |
integer ivartype |
./pkg/ctrl/ctrl_set_pack_yz.F |
7 |
CTRL_SET_PACK_YZ |
& cunit, ivartype, fname, masktype, weighttype, |
./pkg/ctrl/ctrl_set_unpack_xy.F |
126 |
CTRL_SET_UNPACK_XY |
& ivartype, '_', optimcycle, '.bin' |
./pkg/ctrl/ctrl_set_unpack_xy.F |
129 |
CTRL_SET_UNPACK_XY |
& ivartype, '_', optimcycle, '.bin' |
./pkg/ctrl/ctrl_set_unpack_xy.F |
133 |
CTRL_SET_UNPACK_XY |
& ivartype, '_', optimcycle, '.bin' |
./pkg/ctrl/ctrl_set_unpack_xy.F |
136 |
CTRL_SET_UNPACK_XY |
& ivartype, '_', optimcycle, '.bin' |
./pkg/ctrl/ctrl_set_unpack_xy.F |
177 |
CTRL_SET_UNPACK_XY |
nrec_nl=int(ncvarrecs(ivartype)/Nr) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
182 |
CTRL_SET_UNPACK_XY |
read(cunit) filencvarindex(ivartype) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
183 |
CTRL_SET_UNPACK_XY |
if (filencvarindex(ivartype) .NE. ncvarindex(ivartype)) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
186 |
CTRL_SET_UNPACK_XY |
& filencvarindex(ivartype), ncvarindex(ivartype) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
288 |
CTRL_SET_UNPACK_XY |
do irec = nrec_nl*Nr+1,ncvarrecs(ivartype) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
290 |
CTRL_SET_UNPACK_XY |
read(cunit) filencvarindex(ivartype) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
291 |
CTRL_SET_UNPACK_XY |
if (filencvarindex(ivartype) .NE. ncvarindex(ivartype)) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
294 |
CTRL_SET_UNPACK_XY |
& filencvarindex(ivartype), ncvarindex(ivartype) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
36 |
CTRL_SET_UNPACK_XY |
integer ivartype |
./pkg/ctrl/ctrl_set_unpack_xy.F |
483 |
CTRL_SET_UNPACK_XY |
do irec = 1, ncvarrecs(ivartype) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
490 |
CTRL_SET_UNPACK_XY |
read(cunit) filencvarindex(ivartype) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
491 |
CTRL_SET_UNPACK_XY |
if (filencvarindex(ivartype) .NE. ncvarindex(ivartype)) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
494 |
CTRL_SET_UNPACK_XY |
& filencvarindex(ivartype), ncvarindex(ivartype) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
7 |
CTRL_SET_UNPACK_XY |
& lxxadxx, cunit, ivartype, PrecondScalar, |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
144 |
CTRL_SET_UNPACK_XYZ |
& ivartype, '_', optimcycle, '.bin' |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
147 |
CTRL_SET_UNPACK_XYZ |
& ivartype, '_', optimcycle, '.bin' |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
151 |
CTRL_SET_UNPACK_XYZ |
& ivartype, '_', optimcycle, '.bin' |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
154 |
CTRL_SET_UNPACK_XYZ |
& ivartype, '_', optimcycle, '.bin' |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
197 |
CTRL_SET_UNPACK_XYZ |
do irec = 1, ncvarrecs(ivartype) |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
199 |
CTRL_SET_UNPACK_XYZ |
read(cunit) filencvarindex(ivartype) |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
200 |
CTRL_SET_UNPACK_XYZ |
if (filencvarindex(ivartype) .NE. ncvarindex(ivartype)) |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
203 |
CTRL_SET_UNPACK_XYZ |
& filencvarindex(ivartype), ncvarindex(ivartype) |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
393 |
CTRL_SET_UNPACK_XYZ |
do irec = 1, ncvarrecs(ivartype) |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
39 |
CTRL_SET_UNPACK_XYZ |
integer ivartype |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
400 |
CTRL_SET_UNPACK_XYZ |
read(cunit) filencvarindex(ivartype) |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
401 |
CTRL_SET_UNPACK_XYZ |
if (filencvarindex(ivartype) .NE. ncvarindex(ivartype)) |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
404 |
CTRL_SET_UNPACK_XYZ |
& filencvarindex(ivartype), ncvarindex(ivartype) |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
7 |
CTRL_SET_UNPACK_XYZ |
& lxxadxx, cunit, ivartype, fname, masktype, weighttype, |
./pkg/ctrl/ctrl_set_unpack_xz.F |
147 |
CTRL_SET_UNPACK_XZ |
& ivartype, '_', optimcycle, '.bin' |
./pkg/ctrl/ctrl_set_unpack_xz.F |
150 |
CTRL_SET_UNPACK_XZ |
& ivartype, '_', optimcycle, '.bin' |
./pkg/ctrl/ctrl_set_unpack_xz.F |
154 |
CTRL_SET_UNPACK_XZ |
& ivartype, '_', optimcycle, '.bin' |
./pkg/ctrl/ctrl_set_unpack_xz.F |
157 |
CTRL_SET_UNPACK_XZ |
& ivartype, '_', optimcycle, '.bin' |
./pkg/ctrl/ctrl_set_unpack_xz.F |
188 |
CTRL_SET_UNPACK_XZ |
nrec_nl = int(ncvarrecs(ivartype)/Ny) |
./pkg/ctrl/ctrl_set_unpack_xz.F |
195 |
CTRL_SET_UNPACK_XZ |
read(cunit) filencvarindex(ivartype) |
./pkg/ctrl/ctrl_set_unpack_xz.F |
196 |
CTRL_SET_UNPACK_XZ |
if (filencvarindex(ivartype) .NE. ncvarindex(ivartype)) |
./pkg/ctrl/ctrl_set_unpack_xz.F |
199 |
CTRL_SET_UNPACK_XZ |
& filencvarindex(ivartype), ncvarindex(ivartype) |
./pkg/ctrl/ctrl_set_unpack_xz.F |
278 |
CTRL_SET_UNPACK_XZ |
do irec = nrec_nl*ny+1, ncvarrecs(ivartype) |
./pkg/ctrl/ctrl_set_unpack_xz.F |
282 |
CTRL_SET_UNPACK_XZ |
read(cunit) filencvarindex(ivartype) |
./pkg/ctrl/ctrl_set_unpack_xz.F |
283 |
CTRL_SET_UNPACK_XZ |
if (filencvarindex(ivartype) .NE. ncvarindex(ivartype)) |
./pkg/ctrl/ctrl_set_unpack_xz.F |
286 |
CTRL_SET_UNPACK_XZ |
& filencvarindex(ivartype), ncvarindex(ivartype) |
./pkg/ctrl/ctrl_set_unpack_xz.F |
42 |
CTRL_SET_UNPACK_XZ |
integer ivartype |
./pkg/ctrl/ctrl_set_unpack_xz.F |
7 |
CTRL_SET_UNPACK_XZ |
& cunit, ivartype, fname, masktype, weighttype, |
./pkg/ctrl/ctrl_set_unpack_yz.F |
147 |
CTRL_SET_UNPACK_YZ |
& ivartype, '_', optimcycle, '.bin' |
./pkg/ctrl/ctrl_set_unpack_yz.F |
150 |
CTRL_SET_UNPACK_YZ |
& ivartype, '_', optimcycle, '.bin' |
./pkg/ctrl/ctrl_set_unpack_yz.F |
154 |
CTRL_SET_UNPACK_YZ |
& ivartype, '_', optimcycle, '.bin' |
./pkg/ctrl/ctrl_set_unpack_yz.F |
157 |
CTRL_SET_UNPACK_YZ |
& ivartype, '_', optimcycle, '.bin' |
./pkg/ctrl/ctrl_set_unpack_yz.F |
188 |
CTRL_SET_UNPACK_YZ |
nrec_nl = int(ncvarrecs(ivartype)/Nx) |
./pkg/ctrl/ctrl_set_unpack_yz.F |
195 |
CTRL_SET_UNPACK_YZ |
read(cunit) filencvarindex(ivartype) |
./pkg/ctrl/ctrl_set_unpack_yz.F |
196 |
CTRL_SET_UNPACK_YZ |
if (filencvarindex(ivartype) .NE. ncvarindex(ivartype)) |
./pkg/ctrl/ctrl_set_unpack_yz.F |
199 |
CTRL_SET_UNPACK_YZ |
& filencvarindex(ivartype), ncvarindex(ivartype) |
./pkg/ctrl/ctrl_set_unpack_yz.F |
278 |
CTRL_SET_UNPACK_YZ |
do irec = nrec_nl*nx+1,ncvarrecs(ivartype) |
./pkg/ctrl/ctrl_set_unpack_yz.F |
282 |
CTRL_SET_UNPACK_YZ |
read(cunit) filencvarindex(ivartype) |
./pkg/ctrl/ctrl_set_unpack_yz.F |
283 |
CTRL_SET_UNPACK_YZ |
if (filencvarindex(ivartype) .NE. ncvarindex(ivartype)) |
./pkg/ctrl/ctrl_set_unpack_yz.F |
286 |
CTRL_SET_UNPACK_YZ |
& filencvarindex(ivartype), ncvarindex(ivartype) |
./pkg/ctrl/ctrl_set_unpack_yz.F |
42 |
CTRL_SET_UNPACK_YZ |
integer ivartype |
./pkg/ctrl/ctrl_set_unpack_yz.F |
7 |
CTRL_SET_UNPACK_YZ |
& cunit, ivartype, fname, masktype, weighttype, |
./pkg/ctrl/ctrl_unpack.F |
368 |
CTRL_UNPACK |
ivartype = 11 |
./pkg/ctrl/ctrl_unpack.F |
372 |
CTRL_UNPACK |
& cunit, ivartype, fname_obcsn(ictrlgrad), "maskobcsn", |
./pkg/ctrl/ctrl_unpack.F |
376 |
CTRL_UNPACK |
ivartype = 12 |
./pkg/ctrl/ctrl_unpack.F |
380 |
CTRL_UNPACK |
& cunit, ivartype, fname_obcss(ictrlgrad), "maskobcss", |
./pkg/ctrl/ctrl_unpack.F |
384 |
CTRL_UNPACK |
ivartype = 13 |
./pkg/ctrl/ctrl_unpack.F |
388 |
CTRL_UNPACK |
& cunit, ivartype, fname_obcsw(ictrlgrad), "maskobcsw", |
./pkg/ctrl/ctrl_unpack.F |
392 |
CTRL_UNPACK |
ivartype = 14 |
./pkg/ctrl/ctrl_unpack.F |
396 |
CTRL_UNPACK |
& cunit, ivartype, fname_obcse(ictrlgrad), "maskobcse", |
./pkg/ctrl/ctrl_unpack.F |
404 |
CTRL_UNPACK |
ivartype = 1 |
./pkg/ctrl/ctrl_unpack.F |
407 |
CTRL_UNPACK |
call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype, |
./pkg/ctrl/ctrl_unpack.F |
413 |
CTRL_UNPACK |
ivartype = 2 |
./pkg/ctrl/ctrl_unpack.F |
416 |
CTRL_UNPACK |
call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype, |
./pkg/ctrl/ctrl_unpack.F |
422 |
CTRL_UNPACK |
ivartype = 3 |
./pkg/ctrl/ctrl_unpack.F |
426 |
CTRL_UNPACK |
& lxxadxx, cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_unpack.F |
432 |
CTRL_UNPACK |
ivartype = 4 |
./pkg/ctrl/ctrl_unpack.F |
436 |
CTRL_UNPACK |
& lxxadxx, cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_unpack.F |
445 |
CTRL_UNPACK |
ivartype = 5 |
./pkg/ctrl/ctrl_unpack.F |
449 |
CTRL_UNPACK |
& lxxadxx, cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_unpack.F |
466 |
CTRL_UNPACK |
ivartype = 6 |
./pkg/ctrl/ctrl_unpack.F |
470 |
CTRL_UNPACK |
& lxxadxx, cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_unpack.F |
484 |
CTRL_UNPACK |
ivartype = 7 |
./pkg/ctrl/ctrl_unpack.F |
488 |
CTRL_UNPACK |
& lxxadxx, cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_unpack.F |
494 |
CTRL_UNPACK |
ivartype = 8 |
./pkg/ctrl/ctrl_unpack.F |
498 |
CTRL_UNPACK |
& lxxadxx, cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_unpack.F |
507 |
CTRL_UNPACK |
ivartype = 9 |
./pkg/ctrl/ctrl_unpack.F |
511 |
CTRL_UNPACK |
& lxxadxx, cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_unpack.F |
523 |
CTRL_UNPACK |
ivartype = 10 |
./pkg/ctrl/ctrl_unpack.F |
527 |
CTRL_UNPACK |
& lxxadxx, cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_unpack.F |
536 |
CTRL_UNPACK |
ivartype = 15 |
./pkg/ctrl/ctrl_unpack.F |
539 |
CTRL_UNPACK |
call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype, |
./pkg/ctrl/ctrl_unpack.F |
545 |
CTRL_UNPACK |
ivartype = 16 |
./pkg/ctrl/ctrl_unpack.F |
548 |
CTRL_UNPACK |
call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype, |
./pkg/ctrl/ctrl_unpack.F |
554 |
CTRL_UNPACK |
ivartype = 17 |
./pkg/ctrl/ctrl_unpack.F |
557 |
CTRL_UNPACK |
call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype, |
./pkg/ctrl/ctrl_unpack.F |
563 |
CTRL_UNPACK |
ivartype = 18 |
./pkg/ctrl/ctrl_unpack.F |
567 |
CTRL_UNPACK |
& lxxadxx, cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_unpack.F |
573 |
CTRL_UNPACK |
ivartype = 19 |
./pkg/ctrl/ctrl_unpack.F |
577 |
CTRL_UNPACK |
& lxxadxx, cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_unpack.F |
583 |
CTRL_UNPACK |
ivartype = 20 |
./pkg/ctrl/ctrl_unpack.F |
587 |
CTRL_UNPACK |
& lxxadxx, cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_unpack.F |
593 |
CTRL_UNPACK |
ivartype = 21 |
./pkg/ctrl/ctrl_unpack.F |
596 |
CTRL_UNPACK |
call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype, |
./pkg/ctrl/ctrl_unpack.F |
602 |
CTRL_UNPACK |
ivartype = 22 |
./pkg/ctrl/ctrl_unpack.F |
605 |
CTRL_UNPACK |
call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype, |
./pkg/ctrl/ctrl_unpack.F |
611 |
CTRL_UNPACK |
ivartype = 23 |
./pkg/ctrl/ctrl_unpack.F |
615 |
CTRL_UNPACK |
& lxxadxx, cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_unpack.F |
621 |
CTRL_UNPACK |
ivartype = 24 |
./pkg/ctrl/ctrl_unpack.F |
625 |
CTRL_UNPACK |
& lxxadxx, cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_unpack.F |
631 |
CTRL_UNPACK |
ivartype = 25 |
./pkg/ctrl/ctrl_unpack.F |
634 |
CTRL_UNPACK |
call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype, |
./pkg/ctrl/ctrl_unpack.F |
638 |
CTRL_UNPACK |
ivartype = 26 |
./pkg/ctrl/ctrl_unpack.F |
641 |
CTRL_UNPACK |
call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype, |
./pkg/ctrl/ctrl_unpack.F |
647 |
CTRL_UNPACK |
ivartype = 27 |
./pkg/ctrl/ctrl_unpack.F |
650 |
CTRL_UNPACK |
call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype, |
./pkg/ctrl/ctrl_unpack.F |
656 |
CTRL_UNPACK |
ivartype = 28 |
./pkg/ctrl/ctrl_unpack.F |
659 |
CTRL_UNPACK |
call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype, |
./pkg/ctrl/ctrl_unpack.F |
665 |
CTRL_UNPACK |
ivartype = 29 |
./pkg/ctrl/ctrl_unpack.F |
669 |
CTRL_UNPACK |
& lxxadxx, cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_unpack.F |
675 |
CTRL_UNPACK |
ivartype = 30 |
./pkg/ctrl/ctrl_unpack.F |
679 |
CTRL_UNPACK |
& lxxadxx, cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_unpack.F |
685 |
CTRL_UNPACK |
ivartype = 31 |
./pkg/ctrl/ctrl_unpack.F |
689 |
CTRL_UNPACK |
& lxxadxx, cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_unpack.F |
695 |
CTRL_UNPACK |
ivartype = 32 |
./pkg/ctrl/ctrl_unpack.F |
699 |
CTRL_UNPACK |
& lxxadxx, cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_unpack.F |
705 |
CTRL_UNPACK |
ivartype = 33 |
./pkg/ctrl/ctrl_unpack.F |
709 |
CTRL_UNPACK |
& lxxadxx, cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_unpack.F |
715 |
CTRL_UNPACK |
ivartype = 34 |
./pkg/ctrl/ctrl_unpack.F |
719 |
CTRL_UNPACK |
& lxxadxx, cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_unpack.F |
725 |
CTRL_UNPACK |
ivartype = 35 |
./pkg/ctrl/ctrl_unpack.F |
729 |
CTRL_UNPACK |
& lxxadxx, cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_unpack.F |
735 |
CTRL_UNPACK |
ivartype = 36 |
./pkg/ctrl/ctrl_unpack.F |
739 |
CTRL_UNPACK |
& lxxadxx, cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_unpack.F |
745 |
CTRL_UNPACK |
ivartype = 37 |
./pkg/ctrl/ctrl_unpack.F |
749 |
CTRL_UNPACK |
& lxxadxx, cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_unpack.F |
755 |
CTRL_UNPACK |
ivartype = 38 |
./pkg/ctrl/ctrl_unpack.F |
759 |
CTRL_UNPACK |
& lxxadxx, cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_unpack.F |
765 |
CTRL_UNPACK |
ivartype = 39 |
./pkg/ctrl/ctrl_unpack.F |
769 |
CTRL_UNPACK |
& lxxadxx, cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_unpack.F |
775 |
CTRL_UNPACK |
ivartype = 40 |
./pkg/ctrl/ctrl_unpack.F |
779 |
CTRL_UNPACK |
& lxxadxx, cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_unpack.F |
785 |
CTRL_UNPACK |
ivartype = 41 |
./pkg/ctrl/ctrl_unpack.F |
789 |
CTRL_UNPACK |
& lxxadxx, cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_unpack.F |
795 |
CTRL_UNPACK |
ivartype = 42 |
./pkg/ctrl/ctrl_unpack.F |
799 |
CTRL_UNPACK |
& lxxadxx, cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_unpack.F |
805 |
CTRL_UNPACK |
ivartype = 43 |
./pkg/ctrl/ctrl_unpack.F |
809 |
CTRL_UNPACK |
& lxxadxx, cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_unpack.F |
815 |
CTRL_UNPACK |
ivartype = 44 |
./pkg/ctrl/ctrl_unpack.F |
818 |
CTRL_UNPACK |
call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype, |
./pkg/ctrl/ctrl_unpack.F |
824 |
CTRL_UNPACK |
ivartype = 45 |
./pkg/ctrl/ctrl_unpack.F |
828 |
CTRL_UNPACK |
& lxxadxx, cunit, ivartype, forcingPrecond, |
./pkg/ctrl/ctrl_unpack.F |
840 |
CTRL_UNPACK |
ivartype = 100+iarr |
./pkg/ctrl/ctrl_unpack.F |
844 |
CTRL_UNPACK |
& lxxadxx, cunit, ivartype, genarr2dPrecond(iarr), |
./pkg/ctrl/ctrl_unpack.F |
857 |
CTRL_UNPACK |
ivartype = 200+iarr |
./pkg/ctrl/ctrl_unpack.F |
860 |
CTRL_UNPACK |
call CTRL_SET_UNPACK_XYZ( lxxadxx, cunit, ivartype, |
./pkg/ctrl/ctrl_unpack.F |
873 |
CTRL_UNPACK |
ivartype = 300+iarr |
./pkg/ctrl/ctrl_unpack.F |
877 |
CTRL_UNPACK |
& lxxadxx, cunit, ivartype, gentim2dPrecond(iarr), |
./pkg/ctrl/ctrl_unpack.F |
91 |
CTRL_UNPACK |
integer ivartype |