Changeset 14 for trunk/NEMO

Timestamp:

2004-02-17T08:20:06+01:00 (20 years ago)

Author:

opalod

Message:

CT : BUGFIX001 : Compilation error is solved

File:

• trunk/NEMO/OPA_SRC/cpl_oce.F90 (modified) (7 diffs)

trunk/NEMO/OPA_SRC/cpl_oce.F90

@@ -27 +27 @@
    LOGICAL, PUBLIC, PARAMETER :: lk_cpl = .TRUE.   !: coupled flag
 
-   INTEGER, PARAMETER ::   &
+   INTEGER, PARAMETER ::   &  !:  
       jpmaxfld = 40        &  !: Number of maximum fields exchange betwwen
       !                       ! the ocean and the coupler
@@ -35 +35 @@
    !! -----------
 
-   INTEGER, PARAMETER ::   &
+   INTEGER, PARAMETER ::   &  !:
       jpbyteint = 4,       &  !: number of bytes per integer
       jpbyterea = 8,       &  !: number of bytes per real
       jpbytecha = 1           !: number of bytes per character  
 
-   INTEGER, PARAMETER ::   &
+   INTEGER, PARAMETER ::   &  !:
       jptest = 100         &  !: The models will test during 2*jptest 
       !                       ! seconds if the file DUMMY_SIPC has been
@@ -50 +50 @@
    !! -----------
 
-   INTEGER, PARAMETER ::   &
+   INTEGER, PARAMETER ::   &  !:
       jpread = 0,          &  !: 
       jpwrit = 1              !: 
@@ -209 +209 @@
 
 #  if defined key_ice_lim
-   REAL(wp), DIMENSION(jpi,jpj) ::   &
+   REAL(wp), DIMENSION(jpi,jpj) ::   &  !:
       watm        ,    &  !:
       tatm        ,    &  !:
@@ -219 +219 @@
    !! Coupling
 
-   INTEGER ::
-      npioc       ,    &  ! process-id of ocean PROGRAM
-      nexco       ,    &  ! exchange frequency for fluxes
-      nmodcpl     ,    &  ! coupling mode
-      nflxc2o     ,    &  ! fluxes field number coupler to ocean
-      ntauc2o     ,    &  ! stress field number coupler to ocean
-      nfldo2c             ! surface field number ocean to coupler
-   INTEGER ::
-      numlhf = 31 ,    &  ! unit to transfer fluxes
-      numlws = 32 ,    &  ! unit to transfer stress
-      numlts = 34 ,    &  ! unit to transfer sst
-      numlic = 35         ! unit to transfer ice cover
-
-   CHARACTER(len=4) ::   cchan       ! type of message passing (pipe or clim) 
-   CHARACTER(len=6) ::   cplmodnam   ! model name
-   CHARACTER(len=5) ::   cploasis    ! coupler name
-
-   CHARACTER(len=8), DIMENSION(jpmaxfld) ::   
-      cpl_f_readflx,   &  ! coupler to ocean file name for flx.coupled
-      cpl_f_readtau,   &  ! coupler to ocean file name for tau.coupled
-      cpl_f_writ   ,   &  ! ocean to coupler file name for stp_cmo
-      cpl_readflx  ,   &  ! coupler to ocean field name for flx.coupled
-      cpl_readtau  ,   &  ! coupler to ocean field name for tau.coupled
-      cpl_writ            ! ocean to coupler field name for stp_cmo
-
-  REAL(wp), DIMENSION(jpi,jpj) ::   &
-      sstoc,     &  ! work array to average sst
-      sieoc,     &  ! work array to average Ice index
-      alboc,     &  ! work array to average Ice Albedo
-      ticoc         ! work array to average Ice temperature
+   INTEGER ::          &  !:
+      npioc       ,    &  !: process-id of ocean PROGRAM
+      nexco       ,    &  !: exchange frequency for fluxes
+      nmodcpl     ,    &  !: coupling mode
+      nflxc2o     ,    &  !: fluxes field number coupler to ocean
+      ntauc2o     ,    &  !: stress field number coupler to ocean
+      nfldo2c             !: surface field number ocean to coupler
+
+   CHARACTER(len=4) ::   cchan       !: type of message passing (pipe or clim) 
+   CHARACTER(len=6) ::   cplmodnam   !: model name
+   CHARACTER(len=5) ::   cploasis    !: coupler name
+
+   CHARACTER(len=8), DIMENSION(jpmaxfld) ::   &  !:
+      cpl_f_readflx,   &  !: coupler to ocean file name for flx.coupled
+      cpl_f_readtau,   &  !: coupler to ocean file name for tau.coupled
+      cpl_f_writ   ,   &  !: ocean to coupler file name for stp_cmo
+      cpl_readflx  ,   &  !: coupler to ocean field name for flx.coupled
+      cpl_readtau  ,   &  !: coupler to ocean field name for tau.coupled
+      cpl_writ            !: ocean to coupler field name for stp_cmo
+
+  REAL(wp), DIMENSION(jpi,jpj) ::   &  !:
+      sstoc,     &  !: work array to average sst
+      sieoc,     &  !: work array to average Ice index
+      alboc,     &  !: work array to average Ice Albedo
+      ticoc         !: work array to average Ice temperature
 
 
@@ -255 +250 @@
    !! variables describing pools formed of shared memory segments 
 
-   INTEGER ::   &
-      mpoolinitr,  &  ! handles associated to model pools for passing
-      mpoolinitw      ! initial info (r=read, w=write)
-
-   INTEGER, DIMENSION(jpmaxfld) ::
-      mpoolwrit,   &  ! handles associated to pools used to pass fields
-      !               ! exchanged from model to coupler 
-      !               ! (see libsipc/SIPC_Write_Model.f)
-      mpoolread       ! handles associated to pools used to pass fields
-      !               ! exchanged from model to coupler
-      !               ! (see libsipc/SIPC_Read_Model.f)
+   INTEGER ::   &  !:
+      mpoolinitr,  &  !: handles associated to model pools for passing
+      mpoolinitw      !: initial info (r=read, w=write)
+
+   INTEGER, DIMENSION(jpmaxfld) ::   &  !:
+      mpoolwrit,   &  !: handles associated to pools used to pass fields
+      !               !  exchanged from model to coupler 
+      !               !  (see libsipc/SIPC_Write_Model.f)
+      mpoolread       !: handles associated to pools used to pass fields
+      !               !  exchanged from model to coupler
+      !               !  (see libsipc/SIPC_Read_Model.f)
+
 #else
    !!----------------------------------------------------------------------
@@ -271 +267 @@
    !!----------------------------------------------------------------------
    !!   Empty module
-   LOGICAL, PUBLIC, PARAMETER :: lk_cpl = .FALSE.
+   LOGICAL, PUBLIC, PARAMETER :: lk_cpl = .FALSE.   !: coupled flag
 #endif
+
    !!----------------------------------------------------------------------
 END MODULE cpl_oce