Changeset 2690 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

Timestamp:

2011-03-15T16:27:46+01:00 (13 years ago)

Author:

gm

Message:

dynamic mem: #785 ; homogeneization of the coding style associated with dyn allocation

File:

• branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90 (modified) (6 diffs)

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

@@ -32 +32 @@
    USE dom_oce                      ! ocean space and time domain
    USE in_out_manager               ! I/O manager
-   USE lbclnk          ! ocean lateral boundary conditions (or mpp link)
+   USE lbclnk                       ! ocean lateral boundary conditions (or mpp link)
 
    IMPLICIT NONE
    PRIVATE
 
-   PUBLIC cpl_prism_init
-   PUBLIC cpl_prism_define
-   PUBLIC cpl_prism_snd
-   PUBLIC cpl_prism_rcv
-   PUBLIC cpl_prism_freq
-   PUBLIC cpl_prism_finalize
-
-   LOGICAL, PUBLIC, PARAMETER :: lk_cpl = .TRUE.   !: coupled flag
-   INTEGER, PUBLIC            :: OASIS_Rcv  = 1    !: return code if received field
-   INTEGER, PUBLIC            :: OASIS_idle = 0    !: return code if nothing done by oasis
-   INTEGER                    :: ncomp_id          ! id returned by prism_init_comp
-   INTEGER                    :: nerror            ! return error code
-
-   INTEGER, PARAMETER :: nmaxfld=40    ! Maximum number of coupling fields
+   PUBLIC   cpl_prism_init
+   PUBLIC   cpl_prism_define
+   PUBLIC   cpl_prism_snd
+   PUBLIC   cpl_prism_rcv
+   PUBLIC   cpl_prism_freq
+   PUBLIC   cpl_prism_finalize
+
+   LOGICAL, PUBLIC, PARAMETER ::   lk_cpl = .TRUE.   !: coupled flag
+   INTEGER, PUBLIC            ::   OASIS_Rcv  = 1    !: return code if received field
+   INTEGER, PUBLIC            ::   OASIS_idle = 0    !: return code if nothing done by oasis
+   INTEGER                    ::   ncomp_id          ! id returned by prism_init_comp
+   INTEGER                    ::   nerror            ! return error code
+
+   INTEGER, PARAMETER ::   nmaxfld=40    ! Maximum number of coupling fields
    
    TYPE, PUBLIC ::   FLD_CPL            !: Type for coupling field information
@@ -60 +60 @@
    END TYPE FLD_CPL
 
-   TYPE(FLD_CPL), DIMENSION(nmaxfld), PUBLIC :: srcv, ssnd   !: Coupling fields
-
-   REAL(wp), DIMENSION(:,:), ALLOCATABLE :: exfld  ! Temporary buffer for receiving
+   TYPE(FLD_CPL), DIMENSION(nmaxfld), PUBLIC ::   srcv, ssnd   !: Coupling fields
+
+   REAL(wp), DIMENSION(:,:), ALLOCATABLE ::   exfld   ! Temporary buffer for receiving
 
    !!----------------------------------------------------------------------
@@ -243 +243 @@
       INTEGER                 , INTENT(  out) ::   kinfo     ! OASIS3 info argument
       !!
-      LOGICAL                :: llaction
+      LOGICAL ::   llaction
       !!--------------------------------------------------------------------
       !
@@ -284 +284 @@
 
 
-   FUNCTION cpl_prism_freq( kid )  
+   INTEGER FUNCTION cpl_prism_freq( kid )  
       !!---------------------------------------------------------------------
       !!              ***  ROUTINE cpl_prism_freq  ***
@@ -290 +290 @@
       !! ** Purpose : - send back the coupling frequency for a particular field
       !!----------------------------------------------------------------------
-      INTEGER,INTENT( IN )   :: kid              ! variable index 
-      INTEGER                :: cpl_prism_freq   ! coupling frequency
+      INTEGER,INTENT(in) ::   kid   ! variable index 
       !!----------------------------------------------------------------------
       cpl_prism_freq = ig_def_freq( kid )
@@ -307 +306 @@
       !!----------------------------------------------------------------------
       !
-      DEALLOCATE(exfld)
-      CALL prism_terminate_proto ( nerror )         
+      DEALLOCATE( exfld )
+      CALL prism_terminate_proto( nerror )         
       !
    END SUBROUTINE cpl_prism_finalize