Changeset 13220 for NEMO/branches/2020/dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation/src/OCE/nemogcm.F90
- Timestamp:
- 2020-07-02T13:02:36+02:00 (4 years ago)
- Location:
- NEMO/branches/2020/dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation
- Property svn:externals
-
old new 2 2 ^/utils/build/makenemo@HEAD makenemo 3 3 ^/utils/build/mk@HEAD mk 4 ^/utils/tools @HEADtools5 ^/vendors/AGRIF/dev @HEADext/AGRIF4 ^/utils/tools/@HEAD tools 5 ^/vendors/AGRIF/dev_r12970_AGRIF_CMEMS ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL
-
- Property svn:externals
-
NEMO/branches/2020/dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation/src/OCE/nemogcm.F90
r13135 r13220 143 143 #if defined key_agrif 144 144 Kbb_a = Nbb; Kmm_a = Nnn; Krhs_a = Nrhs ! agrif_oce module copies of time level indices 145 CALL Agrif_Declare_Var_dom ! AGRIF: set the meshes for DOM 146 CALL Agrif_Declare_Var ! " " " " " DYN/TRA 145 CALL Agrif_Declare_Var ! " " " " " DYN/TRA 147 146 # if defined key_top 148 147 CALL Agrif_Declare_Var_top ! " " " " " TOP 149 # endif150 # if defined key_si3151 CALL Agrif_Declare_Var_ice ! " " " " " Sea ice152 148 # endif 153 149 #endif … … 408 404 ! Initialise time level indices 409 405 Nbb = 1; Nnn = 2; Naa = 3; Nrhs = Naa 410 406 #if defined key_agrif 407 Kbb_a = Nbb; Kmm_a = Nnn; Krhs_a = Nrhs ! agrif_oce module copies of time level indices 408 #endif 411 409 ! !-------------------------------! 412 410 ! ! NEMO general initialization ! … … 423 421 IF( lk_c1d ) CALL c1d_init ! 1D column configuration 424 422 CALL wad_init ! Wetting and drying options 423 424 #if defined key_agrif 425 CALL Agrif_Declare_Var_ini ! " " " " " DOM 426 #endif 425 427 CALL dom_init( Nbb, Nnn, Naa, "OPA") ! Domain 428 429 430 426 431 IF( ln_crs ) CALL crs_init( Nnn ) ! coarsened grid: domain initialization 427 432 IF( sn_cfctl%l_prtctl ) & … … 444 449 ENDIF 445 450 ! 446 451 447 452 CALL istate_init( Nbb, Nnn, Naa ) ! ocean initial state (Dynamics and tracers) 448 453
Note: See TracChangeset
for help on using the changeset viewer.