Ignore:
Timestamp:
2020-07-02T13:02:36+02:00 (7 months ago)
Author:
orioltp
Message:

dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation: updating from trunk r13218

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  
        22^/utils/build/makenemo@HEAD   makenemo 
        33^/utils/build/mk@HEAD         mk 
        4 ^/utils/tools@HEAD            tools 
        5 ^/vendors/AGRIF/dev@HEAD      ext/AGRIF 
         4^/utils/tools/@HEAD           tools 
         5^/vendors/AGRIF/dev_r12970_AGRIF_CMEMS      ext/AGRIF 
        66^/vendors/FCM@HEAD            ext/FCM 
        77^/vendors/IOIPSL@HEAD         ext/IOIPSL 
  • NEMO/branches/2020/dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation/src/SAS/nemogcm.F90

    r13135 r13220  
    9191#if defined key_agrif 
    9292      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 DOM 
    9493      CALL Agrif_Declare_Var       !  "      "   "   "      "  DYN/TRA  
    9594# if defined key_top 
    9695      CALL Agrif_Declare_Var_top   !  "      "   "   "      "  TOP 
    97 # endif 
    98 # if defined key_si3 
    99       CALL Agrif_Declare_Var_ice   !  "      "   "   "      "  Sea ice 
    10096# endif 
    10197#endif 
     
    345341      ! Initialise time level indices 
    346342      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  
    347346 
    348347      !                             !-------------------------------! 
     
    358357                           CALL phy_cst         ! Physical constants 
    359358                           CALL eos_init        ! Equation of seawater 
     359#if defined key_agrif 
     360     CALL Agrif_Declare_Var_ini   !  "      "   "   "      "  DOM 
     361#endif 
    360362                           CALL dom_init( Nbb, Nnn, Naa, 'SAS') ! Domain 
    361363      IF( sn_cfctl%l_prtctl )   & 
  • NEMO/branches/2020/dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation/src/SAS/stpctl.F90

    r13135 r13220  
    112112      !                                   !==  done by all processes at every time step  ==! 
    113113      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 
    117125      zmax(4) = REAL( nstop, wp )                                     ! stop indicator 
    118126      !                                   !==               get global extrema             ==! 
Note: See TracChangeset for help on using the changeset viewer.