Changeset 8975 for branches/UKMO/2017_dev_r7573_oasis/NEMOGCM/NEMO/OPA_SRC/oce.F90

Timestamp:

2017-12-11T14:04:27+01:00 (6 years ago)

Author:

andmirek

Message:

#1868 first working branch

File:

• branches/UKMO/2017_dev_r7573_oasis/NEMOGCM/NEMO/OPA_SRC/oce.F90 (modified) (3 diffs)

branches/UKMO/2017_dev_r7573_oasis/NEMOGCM/NEMO/OPA_SRC/oce.F90

@@ -32 +32 @@
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   rhd    !: in situ density anomalie rhd=(rho-rau0)/rau0  [no units]
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   rhop   !: potential volumic mass                           [kg/m3]
+   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   vcice
 
    !! free surface                                      !  before  ! now    ! after  !
@@ -97 +98 @@
       !!                   ***  FUNCTION oce_alloc  ***
       !!----------------------------------------------------------------------
-      INTEGER :: ierr(4)
+      INTEGER :: ierr(5)
       !!----------------------------------------------------------------------
       !
@@ -129 +130 @@
          &     riceload(jpi,jpj),                             STAT=ierr(2) )
          !
+      ALLOCATE(vcice (jpi,jpj))
       ALLOCATE( snwice_mass(jpi,jpj) , snwice_mass_b(jpi,jpj), snwice_fmass(jpi,jpj) , STAT=ierr(3) )
          !