Changeset 13220 for NEMO/branches/2020/dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation/src/SAS
- Timestamp:
- 2020-07-02T13:02:36+02:00 (4 years ago)
- Location:
- NEMO/branches/2020/dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation
- Files:
-
- 3 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/SAS/nemogcm.F90
r13135 r13220 91 91 #if defined key_agrif 92 92 Kbb_a = Nbb; Kmm_a = Nnn; Krhs_a = Nrhs ! agrif_oce module copies of time level indices 93 CALL Agrif_Declare_Var_dom ! AGRIF: set the meshes for DOM94 93 CALL Agrif_Declare_Var ! " " " " " DYN/TRA 95 94 # if defined key_top 96 95 CALL Agrif_Declare_Var_top ! " " " " " TOP 97 # endif98 # if defined key_si399 CALL Agrif_Declare_Var_ice ! " " " " " Sea ice100 96 # endif 101 97 #endif … … 345 341 ! Initialise time level indices 346 342 Nbb = 1; Nnn = 2; Naa = 3; Nrhs = Naa 343 #if defined key_agrif 344 Kbb_a = Nbb; Kmm_a = Nnn; Krhs_a = Nrhs ! agrif_oce module copies of time level indices 345 #endif 347 346 348 347 ! !-------------------------------! … … 358 357 CALL phy_cst ! Physical constants 359 358 CALL eos_init ! Equation of seawater 359 #if defined key_agrif 360 CALL Agrif_Declare_Var_ini ! " " " " " DOM 361 #endif 360 362 CALL dom_init( Nbb, Nnn, Naa, 'SAS') ! Domain 361 363 IF( sn_cfctl%l_prtctl ) & -
NEMO/branches/2020/dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation/src/SAS/stpctl.F90
r13135 r13220 112 112 ! !== done by all processes at every time step ==! 113 113 llmsk(:,:) = tmask(:,:,1) == 1._wp 114 zmax(1) = MAXVAL( vt_i (:,:) , mask = llmsk ) ! max ice thickness 115 zmax(2) = MAXVAL( ABS( u_ice(:,:) ) , mask = llmsk ) ! max ice velocity (zonal only) 116 zmax(3) = MAXVAL( -tm_i (:,:) + 273.15_wp, mask = llmsk ) ! min ice temperature 114 IF( COUNT( llmsk(:,:) ) > 0 ) THEN ! avoid huge values sent back for land processors... 115 zmax(1) = MAXVAL( vt_i (:,:) , mask = llmsk ) ! max ice thickness 116 zmax(2) = MAXVAL( ABS( u_ice(:,:) ) , mask = llmsk ) ! max ice velocity (zonal only) 117 zmax(3) = MAXVAL( -tm_i (:,:) + 273.15_wp, mask = llmsk ) ! min ice temperature 118 ELSE 119 IF( ll_colruns ) THEN ! default value: must not be kept when calling mpp_max -> must be as small as possible 120 zmax(1:3) = -HUGE(1._wp) 121 ELSE ! default value: must not give true for any of the tests bellow (-> avoid manipulating HUGE...) 122 zmax(1:3) = 0._wp 123 ENDIF 124 ENDIF 117 125 zmax(4) = REAL( nstop, wp ) ! stop indicator 118 126 ! !== get global extrema ==!
Note: See TracChangeset
for help on using the changeset viewer.