132 |
cph index 23-24 for bottom drag |
cph index 23-24 for bottom drag |
133 |
cph) |
cph) |
134 |
|
|
135 |
c------------------------------------------------------------------------------- |
c---------------------------------------------------------------------- |
136 |
c-- |
c-- |
137 |
#ifdef ALLOW_THETA0_CONTROL |
#ifdef ALLOW_THETA0_CONTROL |
138 |
c-- Initial state temperature contribution. |
c-- Initial state temperature contribution. |
141 |
& snx, sny, nr, 'c', '3d', mythid ) |
& snx, sny, nr, 'c', '3d', mythid ) |
142 |
#endif /* ALLOW_THETA0_CONTROL */ |
#endif /* ALLOW_THETA0_CONTROL */ |
143 |
|
|
144 |
c------------------------------------------------------------------------------- |
c---------------------------------------------------------------------- |
145 |
c-- |
c-- |
146 |
#ifdef ALLOW_SALT0_CONTROL |
#ifdef ALLOW_SALT0_CONTROL |
147 |
c-- Initial state salinity contribution. |
c-- Initial state salinity contribution. |
154 |
c-- Surface flux contributions. |
c-- Surface flux contributions. |
155 |
c-- =========================== |
c-- =========================== |
156 |
|
|
157 |
c------------------------------------------------------------------------------- |
c---------------------------------------------------------------------- |
158 |
c-- |
c-- |
159 |
#if (defined (ALLOW_HFLUX_CONTROL)) |
#if (defined (ALLOW_HFLUX_CONTROL)) |
160 |
c-- Heat flux. |
c-- Heat flux. |
208 |
|
|
209 |
#endif /* ALLOW_HFLUX_CONTROL */ |
#endif /* ALLOW_HFLUX_CONTROL */ |
210 |
|
|
211 |
c------------------------------------------------------------------------------- |
c---------------------------------------------------------------------- |
212 |
c-- |
c-- |
213 |
#if (defined (ALLOW_SFLUX_CONTROL)) |
#if (defined (ALLOW_SFLUX_CONTROL)) |
214 |
c-- Salt flux. |
c-- Salt flux. |
262 |
|
|
263 |
#endif /* ALLOW_SFLUX_CONTROL */ |
#endif /* ALLOW_SFLUX_CONTROL */ |
264 |
|
|
265 |
c------------------------------------------------------------------------------- |
c---------------------------------------------------------------------- |
266 |
c-- |
c-- |
267 |
#if (defined (ALLOW_USTRESS_CONTROL)) |
#if (defined (ALLOW_USTRESS_CONTROL)) |
268 |
c-- Zonal wind stress. |
c-- Zonal wind stress. |
316 |
|
|
317 |
#endif /* ALLOW_USTRESS_CONTROL */ |
#endif /* ALLOW_USTRESS_CONTROL */ |
318 |
|
|
319 |
c------------------------------------------------------------------------------- |
c---------------------------------------------------------------------- |
320 |
c-- |
c-- |
321 |
#if (defined (ALLOW_VSTRESS_CONTROL)) |
#if (defined (ALLOW_VSTRESS_CONTROL)) |
322 |
c-- Meridional wind stress. |
c-- Meridional wind stress. |
375 |
c-- Open boundary contributions. |
c-- Open boundary contributions. |
376 |
c-- =========================== |
c-- =========================== |
377 |
|
|
378 |
c------------------------------------------------------------------------------- |
c---------------------------------------------------------------------- |
379 |
c-- |
c-- |
380 |
#ifdef ALLOW_OBCSN_CONTROL |
#ifdef ALLOW_OBCSN_CONTROL |
381 |
c-- Northern obc. |
c-- Northern obc. |
401 |
|
|
402 |
#endif /* ALLOW_OBCSN_CONTROL */ |
#endif /* ALLOW_OBCSN_CONTROL */ |
403 |
|
|
404 |
c------------------------------------------------------------------------------- |
c---------------------------------------------------------------------- |
405 |
c-- |
c-- |
406 |
#ifdef ALLOW_OBCSS_CONTROL |
#ifdef ALLOW_OBCSS_CONTROL |
407 |
c-- Southern obc. |
c-- Southern obc. |
427 |
|
|
428 |
#endif /* ALLOW_OBCSS_CONTROL */ |
#endif /* ALLOW_OBCSS_CONTROL */ |
429 |
|
|
430 |
c------------------------------------------------------------------------------- |
c---------------------------------------------------------------------- |
431 |
c-- |
c-- |
432 |
#ifdef ALLOW_OBCSW_CONTROL |
#ifdef ALLOW_OBCSW_CONTROL |
433 |
c-- Western obc. |
c-- Western obc. |
453 |
|
|
454 |
#endif /* ALLOW_OBCSW_CONTROL */ |
#endif /* ALLOW_OBCSW_CONTROL */ |
455 |
|
|
456 |
c------------------------------------------------------------------------------- |
c---------------------------------------------------------------------- |
457 |
c-- |
c-- |
458 |
#ifdef ALLOW_OBCSE_CONTROL |
#ifdef ALLOW_OBCSE_CONTROL |
459 |
c-- Eastern obc. |
c-- Eastern obc. |
479 |
|
|
480 |
#endif /* ALLOW_OBCSE_CONTROL */ |
#endif /* ALLOW_OBCSE_CONTROL */ |
481 |
|
|
482 |
c------------------------------------------------------------------------------- |
c---------------------------------------------------------------------- |
483 |
c-- |
c-- |
484 |
#ifdef ALLOW_DIFFKR_CONTROL |
#ifdef ALLOW_DIFFKR_CONTROL |
485 |
call ctrl_init_ctrlvar ( |
call ctrl_init_ctrlvar ( |
487 |
& snx, sny, nr, 'c', '3d', mythid ) |
& snx, sny, nr, 'c', '3d', mythid ) |
488 |
#endif /* ALLOW_DIFFKR_CONTROL */ |
#endif /* ALLOW_DIFFKR_CONTROL */ |
489 |
|
|
490 |
c------------------------------------------------------------------------------- |
c---------------------------------------------------------------------- |
491 |
c-- |
c-- |
492 |
#ifdef ALLOW_KAPGM_CONTROL |
#ifdef ALLOW_KAPGM_CONTROL |
493 |
call ctrl_init_ctrlvar ( |
call ctrl_init_ctrlvar ( |
495 |
& snx, sny, nr, 'c', '3d', mythid ) |
& snx, sny, nr, 'c', '3d', mythid ) |
496 |
#endif /* ALLOW_KAPGM_CONTROL */ |
#endif /* ALLOW_KAPGM_CONTROL */ |
497 |
|
|
498 |
c------------------------------------------------------------------------------- |
c---------------------------------------------------------------------- |
499 |
c-- |
c-- |
500 |
#ifdef ALLOW_TR10_CONTROL |
#ifdef ALLOW_TR10_CONTROL |
501 |
call ctrl_init_ctrlvar ( |
call ctrl_init_ctrlvar ( |
503 |
& snx, sny, nr, 'c', '3d', mythid ) |
& snx, sny, nr, 'c', '3d', mythid ) |
504 |
#endif /* ALLOW_TR10_CONTROL */ |
#endif /* ALLOW_TR10_CONTROL */ |
505 |
|
|
506 |
c------------------------------------------------------------------------------- |
c---------------------------------------------------------------------- |
507 |
c-- |
c-- |
508 |
#ifdef ALLOW_SST0_CONTROL |
#ifdef ALLOW_SST0_CONTROL |
509 |
call ctrl_init_ctrlvar ( |
call ctrl_init_ctrlvar ( |
511 |
& snx, sny, 1, 'c', 'xy', mythid ) |
& snx, sny, 1, 'c', 'xy', mythid ) |
512 |
#endif /* ALLOW_SST0_CONTROL */ |
#endif /* ALLOW_SST0_CONTROL */ |
513 |
|
|
514 |
c------------------------------------------------------------------------------- |
c---------------------------------------------------------------------- |
515 |
c-- |
c-- |
516 |
#ifdef ALLOW_SSS0_CONTROL |
#ifdef ALLOW_SSS0_CONTROL |
517 |
call ctrl_init_ctrlvar ( |
call ctrl_init_ctrlvar ( |
519 |
& snx, sny, 1, 'c', 'xy', mythid ) |
& snx, sny, 1, 'c', 'xy', mythid ) |
520 |
#endif /* ALLOW_SSS0_CONTROL */ |
#endif /* ALLOW_SSS0_CONTROL */ |
521 |
|
|
522 |
c------------------------------------------------------------------------------- |
c---------------------------------------------------------------------- |
523 |
c-- |
c-- |
524 |
#ifdef ALLOW_HFACC_CONTROL |
#ifdef ALLOW_HFACC_CONTROL |
525 |
# ifdef ALLOW_HFACC3D_CONTROL |
# ifdef ALLOW_HFACC3D_CONTROL |
533 |
# endif /*ALLOW_HFACC3D_CONTROL*/ |
# endif /*ALLOW_HFACC3D_CONTROL*/ |
534 |
#endif /* ALLOW_HFACC_CONTROL */ |
#endif /* ALLOW_HFACC_CONTROL */ |
535 |
|
|
536 |
c------------------------------------------------------------------------------- |
c---------------------------------------------------------------------- |
537 |
c-- |
c-- |
538 |
#ifdef ALLOW_EFLUXY0_CONTROL |
#ifdef ALLOW_EFLUXY0_CONTROL |
539 |
call ctrl_init_ctrlvar ( |
call ctrl_init_ctrlvar ( |
541 |
& snx, sny, nr, 's', '3d', mythid ) |
& snx, sny, nr, 's', '3d', mythid ) |
542 |
#endif /* ALLOW_EFLUXY0_CONTROL */ |
#endif /* ALLOW_EFLUXY0_CONTROL */ |
543 |
|
|
544 |
c------------------------------------------------------------------------------- |
c---------------------------------------------------------------------- |
545 |
c-- |
c-- |
546 |
#ifdef ALLOW_EFLUXP0_CONTROL |
#ifdef ALLOW_EFLUXP0_CONTROL |
547 |
call ctrl_init_ctrlvar ( |
call ctrl_init_ctrlvar ( |
549 |
& snx, sny, nr, 'v', '3d', mythid ) |
& snx, sny, nr, 'v', '3d', mythid ) |
550 |
#endif /* ALLOW_EFLUXP0_CONTROL */ |
#endif /* ALLOW_EFLUXP0_CONTROL */ |
551 |
|
|
552 |
c------------------------------------------------------------------------------- |
c---------------------------------------------------------------------- |
553 |
c-- |
c-- |
554 |
#ifdef ALLOW_BOTTOMDRAG_CONTROL |
#ifdef ALLOW_BOTTOMDRAG_CONTROL |
555 |
call ctrl_init_ctrlvar ( |
call ctrl_init_ctrlvar ( |
557 |
& snx, sny, 1, 'c', 'xy', mythid ) |
& snx, sny, 1, 'c', 'xy', mythid ) |
558 |
#endif /* ALLOW_BOTTOMDRAG_CONTROL */ |
#endif /* ALLOW_BOTTOMDRAG_CONTROL */ |
559 |
|
|
560 |
c------------------------------------------------------------------------------- |
c---------------------------------------------------------------------- |
561 |
c-- |
c-- |
562 |
#ifdef ALLOW_EDTAUX_CONTROL |
#ifdef ALLOW_EDTAUX_CONTROL |
563 |
call ctrl_init_ctrlvar ( |
call ctrl_init_ctrlvar ( |
565 |
& snx, sny, nr, 'w', '3d', mythid ) |
& snx, sny, nr, 'w', '3d', mythid ) |
566 |
#endif /* ALLOW_EDTAUX_CONTROL */ |
#endif /* ALLOW_EDTAUX_CONTROL */ |
567 |
|
|
568 |
c------------------------------------------------------------------------------- |
c---------------------------------------------------------------------- |
569 |
c-- |
c-- |
570 |
#ifdef ALLOW_EDTAUY_CONTROL |
#ifdef ALLOW_EDTAUY_CONTROL |
571 |
call ctrl_init_ctrlvar ( |
call ctrl_init_ctrlvar ( |
573 |
& snx, sny, nr, 's', '3d', mythid ) |
& snx, sny, nr, 's', '3d', mythid ) |
574 |
#endif /* ALLOW_EDTAUY_CONTROL */ |
#endif /* ALLOW_EDTAUY_CONTROL */ |
575 |
|
|
576 |
c------------------------------------------------------------------------------- |
c---------------------------------------------------------------------- |
577 |
c------------------------------------------------------------------------------- |
c-- |
578 |
c------------------------------------------------------------------------------- |
#ifdef ALLOW_UVEL0_CONTROL |
579 |
|
call ctrl_init_ctrlvar ( |
580 |
|
& xx_uvel_file, 27, 127, 1, 1, 1, |
581 |
|
& snx, sny, nr, 'w', '3d', mythid ) |
582 |
|
#endif /* ALLOW_UVEL0_CONTROL */ |
583 |
|
|
584 |
|
c---------------------------------------------------------------------- |
585 |
|
c-- |
586 |
|
#ifdef ALLOW_VVEL0_CONTROL |
587 |
|
call ctrl_init_ctrlvar ( |
588 |
|
& xx_vvel_file, 28, 128, 1, 1, 1, |
589 |
|
& snx, sny, nr, 's', '3d', mythid ) |
590 |
|
#endif /* ALLOW_VVEL0_CONTROL */ |
591 |
|
|
592 |
|
c---------------------------------------------------------------------- |
593 |
|
c-- |
594 |
|
#ifdef ALLOW_ETAN0_CONTROL |
595 |
|
call ctrl_init_ctrlvar ( |
596 |
|
& xx_etan_file, 29, 129, 1, 1, 1, |
597 |
|
& snx, sny, 1, 'c', 'xy', mythid ) |
598 |
|
#endif /* ALLOW_VVEL0_CONTROL */ |
599 |
|
|
600 |
|
c---------------------------------------------------------------------- |
601 |
|
c-- |
602 |
|
#ifdef ALLOW_RELAXSST_CONTROL |
603 |
|
call ctrl_init_ctrlvar ( |
604 |
|
& xx_relaxsst_file, 30, 130, 1, 1, 1, |
605 |
|
& snx, sny, 1, 'c', 'xy', mythid ) |
606 |
|
#endif /* ALLOW_RELAXSST_CONTROL */ |
607 |
|
|
608 |
|
c---------------------------------------------------------------------- |
609 |
|
c-- |
610 |
|
#ifdef ALLOW_RELAXSSS_CONTROL |
611 |
|
call ctrl_init_ctrlvar ( |
612 |
|
& xx_relaxsss_file, 31, 131, 1, 1, 1, |
613 |
|
& snx, sny, 1, 'c', 'xy', mythid ) |
614 |
|
#endif /* ALLOW_RELAXSSS_CONTROL */ |
615 |
|
|
616 |
|
c---------------------------------------------------------------------- |
617 |
|
c---------------------------------------------------------------------- |
618 |
|
c---------------------------------------------------------------------- |
619 |
|
|
620 |
call ctrl_init_wet( mythid ) |
call ctrl_init_wet( mythid ) |
621 |
|
|