- Timestamp:
- 2016-12-19T16:20:16+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/NST_SRC/agrif_user.F90
r7379 r7510 18 18 USE dom_oce 19 19 USE nemogcm 20 ! 20 !! 21 21 IMPLICIT NONE 22 22 !!---------------------------------------------------------------------- … … 90 90 # if defined key_top 91 91 CALL Agrif_InitValues_cont_top 92 # endif 92 # endif 93 ! 93 94 END SUBROUTINE Agrif_initvalues 94 95 … … 109 110 USE agrif_opa_interp 110 111 USE agrif_opa_sponge 111 ! 112 IMPLICIT NONE 113 ! 114 !!---------------------------------------------------------------------- 115 112 !! 113 IMPLICIT NONE 114 !!---------------------------------------------------------------------- 115 ! 116 116 ! Declaration of the type of variable which have to be interpolated 117 ! ---------------------------------------------------------------------117 ! 118 118 CALL agrif_declare_var_dom 119 119 ! … … 130 130 USE par_oce 131 131 USE oce 132 !! 132 133 IMPLICIT NONE 133 134 !!---------------------------------------------------------------------- … … 178 179 USE agrif_opa_interp 179 180 USE agrif_opa_sponge 180 ! 181 !! 181 182 IMPLICIT NONE 182 183 ! … … 277 278 ENDIF 278 279 ENDIF 280 279 281 ! check if masks and bathymetries match 280 282 IF(ln_chk_bathy) THEN … … 320 322 nbcline = 0 321 323 lk_agrif_doupd = .FALSE. 322 323 324 ! 324 325 END SUBROUTINE Agrif_InitValues_cont … … 335 336 USE oce 336 337 USE agrif_oce 338 !! 337 339 IMPLICIT NONE 338 340 !!---------------------------------------------------------------------- … … 473 475 USE agrif_lim2_interp 474 476 USE lib_mpp 475 ! 476 IMPLICIT NONE 477 ! 477 !! 478 IMPLICIT NONE 478 479 !!---------------------------------------------------------------------- 479 480 … … 510 511 END SUBROUTINE Agrif_InitValues_cont_lim2 511 512 513 512 514 SUBROUTINE agrif_declare_var_lim2 513 515 !!---------------------------------------------------------------------- … … 518 520 USE agrif_util 519 521 USE ice_2 520 522 !! 521 523 IMPLICIT NONE 522 524 !!---------------------------------------------------------------------- … … 662 664 USE agrif_top_interp 663 665 USE agrif_top_sponge 664 ! 666 !! 665 667 IMPLICIT NONE 666 668 ! … … 760 762 USE dom_oce 761 763 USE trc 762 763 IMPLICIT NONE 764 !! 765 IMPLICIT NONE 766 !!---------------------------------------------------------------------- 764 767 765 768 ! 1. Declaration of the type of variable which have to be interpolated … … 792 795 SUBROUTINE Agrif_detect( kg, ksizex ) 793 796 !!---------------------------------------------------------------------- 794 !! *** ROUTINE Agrif_detect *** 795 !!---------------------------------------------------------------------- 796 ! 797 !! *** ROUTINE Agrif_detect *** 798 !!---------------------------------------------------------------------- 797 799 INTEGER, DIMENSION(2) :: ksizex 798 800 INTEGER, DIMENSION(ksizex(1),ksizex(2)) :: kg … … 807 809 !!---------------------------------------------------------------------- 808 810 !! *** ROUTINE agrif_init *** 809 !! Read by Child model only810 811 !!---------------------------------------------------------------------- 811 812 USE agrif_oce … … 813 814 USE in_out_manager 814 815 USE lib_mpp 816 !! 815 817 IMPLICIT NONE 816 818 ! … … 866 868 !!---------------------------------------------------------------------- 867 869 USE dom_oce 870 !! 868 871 IMPLICIT NONE 869 872 ! … … 880 883 END SUBROUTINE Agrif_InvLoc 881 884 885 882 886 SUBROUTINE Agrif_get_proc_info( imin, imax, jmin, jmax ) 883 887 !!---------------------------------------------------------------------- … … 885 889 !!---------------------------------------------------------------------- 886 890 USE par_oce 891 !! 887 892 IMPLICIT NONE 888 893 ! … … 898 903 END SUBROUTINE Agrif_get_proc_info 899 904 905 900 906 SUBROUTINE Agrif_estimate_parallel_cost(imin, imax,jmin, jmax, nbprocs, grid_cost) 901 907 !!---------------------------------------------------------------------- … … 903 909 !!---------------------------------------------------------------------- 904 910 USE par_oce 911 !! 905 912 IMPLICIT NONE 906 913 !
Note: See TracChangeset
for help on using the changeset viewer.
