Changeset 14200 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/nemogcm.F90

Timestamp:

2020-12-17T15:36:44+01:00 (4 years ago)

Author:

mcastril

Message:

Merging r14117 through r14199 into dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final

File:

• NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/nemogcm.F90 (modified) (6 diffs)

NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/nemogcm.F90

@@ -51 +51 @@
    USE istate         ! initial state setting          (istate_init routine)
    USE trdini         ! dyn/tra trends initialization     (trd_init routine)
-   USE asminc         ! assimilation increments     
-   USE asmbkg         ! writing out state trajectory
-   USE diadct         ! sections transports           (dia_dct_init routine)
-   USE diaobs         ! Observation diagnostics       (dia_obs_init routine)
-   USE diacfl         ! CFL diagnostics               (dia_cfl_init routine)
-   USE diamlr         ! IOM context management for multiple-linear-regression analysis
-#if defined key_qco
-   USE stepMLF        ! NEMO time-stepping               (stp_MLF   routine)
-#else
-   USE step           ! NEMO time-stepping                 (stp     routine)
-#endif
-   USE isfstp         ! ice shelf                     (isf_stp_init routine)
    USE icbini         ! handle bergs, initialisation
    USE icbstp  , ONLY : icb_end     ! handle bergs, close iceberg files
@@ -78 +66 @@
    USE ice_domain_size, only: nx_global, ny_global
 #endif
-#if defined key_qco
+#if defined key_qco   ||   defined key_linssh
    USE stpmlf         ! NEMO time-stepping               (stp_MLF   routine)
 #else
@@ -88 +76 @@
    USE lbcnfd  , ONLY : isendto, nsndto  ! Setup of north fold exchanges
    USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)
-#if defined key_iomput
-   USE xios           ! xIOserver
-#endif
-#if defined key_agrif
-   USE agrif_all_update   ! Master Agrif update
-   USE agrif_oce_update
-#endif
-   USE halo_mng
+   USE halo_mng       ! halo manager
 
    IMPLICIT NONE
@@ -180 +161 @@
       !
       DO WHILE( istp <= nitend .AND. nstop == 0 )
-#  if defined key_qco
+         !
+#  if defined key_qco   ||   defined key_linssh
          CALL stp_MLF
 #  else
@@ -201 +183 @@
             ENDIF
             !
-#  if defined key_qco
-            CALL stp_MLF      ( istp )
+#  if defined key_qco   ||   defined key_linssh
+            CALL stp_MLF( istp )
 #  else
-            CALL stp        ( istp )
+            CALL stp    ( istp )
 #  endif
             istp = istp + 1
@@ -348 +330 @@
       IF(lwp) THEN                      ! open listing units
          !
-         IF( .NOT.lwm )   &            ! alreay opened for narea == 1
+         IF( .NOT. lwm )   &            ! alreay opened for narea == 1
             &            CALL ctl_opn( numout, 'ocean.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE., narea )
          !