Changeset 13608 for NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/oce.F90

Timestamp:

2020-10-14T18:31:28+02:00 (4 years ago)

Author:

techene

Message:

#2385 reordering and remove unnecessary USE - sette test not passed yet

File:

• NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/oce.F90 (modified) (3 diffs)

NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/oce.F90

@@ -16 +16 @@
    PRIVATE
 
-   PUBLIC oce_alloc ! routine called by nemo_init in nemogcm.F90
+   PUBLIC oce_alloc       ! routine called by nemo_init in     nemogcm.F90
+   PUBLIC oce_SWE_alloc   ! routine called by nemo_init in SWE/nemogcm.F90 (Shallow Water Eq. case)
 
    !! dynamics and tracer fields
@@ -68 +69 @@
    INTEGER, PUBLIC, DIMENSION(2) :: noce_array                             !: unused array but seems to be needed to prevent agrif from creating an empty module
 
+   !! Shallow Water Eq. case (SWE)
+   LOGICAL, PUBLIC ::   lk_SWE = .FALSE.                                   !: shallow water flag =T in SWE configurations only
+   
    !!----------------------------------------------------------------------
    !! NEMO/OCE 4.0 , NEMO Consortium (2018)
@@ -115 +119 @@
    END FUNCTION oce_alloc
 
+
+   INTEGER FUNCTION oce_SWE_alloc()
+      !!----------------------------------------------------------------------
+      !!                   ***  FUNCTION oce_SWE_alloc  ***
+      !!----------------------------------------------------------------------
+      INTEGER :: ierr(2)
+      !!----------------------------------------------------------------------
+      !
+      lk_SWE  = .TRUE.                   ! =T SWE case 
+      !
+      ierr(:) = 0 
+      ALLOCATE( uu(jpi,jpj,jpk,jpt) , vv  (jpi,jpj,jpk,jpt) ,     &          
+         &      ww(jpi,jpj,jpk)     , hdiv(jpi,jpj,jpk)     , ssh(jpi,jpj,jpt) , STAT=ierr(1) )
+         !
+      ALLOCATE(   ts(jpi,jpj,jpk,jpts,jpt) , fraqsr_1lev(jpi,jpj) ,  &
+         &      uu_b(jpi,jpj,jpt) , vv_b(jpi,jpj,jpt)       , rn2(jpi,jpj,jpk) , STAT=ierr(2) )
+         !
+      oce_SWE_alloc = MAXVAL( ierr )
+      IF( oce_SWE_alloc /= 0 )   CALL ctl_stop( 'STOP', 'oce_SWE_alloc: failed to allocate arrays' )
+      !
+   END FUNCTION oce_SWE_alloc
+
    !!======================================================================
 END MODULE oce