New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 3625 for branches/2012/dev_NOC_2012_rev3555/NEMOGCM/NEMO/OPA_SRC/oce.F90 – NEMO

Ignore:
Timestamp:
2012-11-21T14:19:18+01:00 (11 years ago)
Author:
acc
Message:

Branch dev_NOC_2012_r3555. #1006. Step 7. Check in code now merged with dev_r3385_NOCS04_HAMF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2012/dev_NOC_2012_rev3555/NEMOGCM/NEMO/OPA_SRC/oce.F90

    r3294 r3625  
    4747   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)   ::   gru , grv    !: horizontal gradient of rd at bottom u-point 
    4848 
     49   !! arrays relating to embedding ice in the ocean. These arrays need to be declared  
     50   !! even if no ice model is required. In the no ice model or traditional levitating  
     51   !! ice cases they contain only zeros 
     52   !! --------------------- 
     53   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)   ::   snwice_mass        !: mass of snow and ice at current  ice time step   [Kg/m2] 
     54   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)   ::   snwice_mass_b      !: mass of snow and ice at previous ice time step   [Kg/m2] 
     55   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)   ::   snwice_fmass       !: time evolution of mass of snow+ice               [Kg/m2/s] 
     56 
    4957   !!---------------------------------------------------------------------- 
    5058   !! NEMO/OPA 4.0 , NEMO Consortium (2011) 
    … …  
    5866      !!                   ***  FUNCTION oce_alloc  *** 
    5967      !!---------------------------------------------------------------------- 
    60       INTEGER :: ierr(2) 
     68      INTEGER :: ierr(3) 
    6169      !!---------------------------------------------------------------------- 
    6270      ! 
    … …  
    6977         &      rn2b (jpi,jpj,jpk)      , rn2  (jpi,jpj,jpk)                              , STAT=ierr(1) ) 
    7078         ! 
    71       ALLOCATE(rhd (jpi,jpj,jpk) ,                                         & 
    72          &     rhop(jpi,jpj,jpk) ,                                         & 
    73          &     sshb  (jpi,jpj)   , sshn  (jpi,jpj) , ssha  (jpi,jpj) ,     & 
    74          &     sshu_b(jpi,jpj)   , sshu_n(jpi,jpj) , sshu_a(jpi,jpj) ,     & 
    75          &     sshv_b(jpi,jpj)   , sshv_n(jpi,jpj) , sshv_a(jpi,jpj) ,     & 
    76          &                         sshf_n(jpi,jpj) ,                       & 
    77          &     spgu  (jpi,jpj)   , spgv(jpi,jpj)   ,                       & 
    78          &     gtsu(jpi,jpj,jpts), gtsv(jpi,jpj,jpts),                     & 
    79          &     gru(jpi,jpj)      , grv(jpi,jpj)                      , STAT=ierr(2) ) 
     79      ALLOCATE( rhd (jpi,jpj,jpk) ,                                         & 
     80         &      rhop(jpi,jpj,jpk) ,                                         & 
     81         &      sshb  (jpi,jpj)   , sshn  (jpi,jpj) , ssha  (jpi,jpj) ,     & 
     82         &      sshu_b(jpi,jpj)   , sshu_n(jpi,jpj) , sshu_a(jpi,jpj) ,     & 
     83         &      sshv_b(jpi,jpj)   , sshv_n(jpi,jpj) , sshv_a(jpi,jpj) ,     & 
     84         &                          sshf_n(jpi,jpj) ,                       & 
     85         &      spgu  (jpi,jpj)   , spgv(jpi,jpj)   ,                       & 
     86         &      gtsu(jpi,jpj,jpts), gtsv(jpi,jpj,jpts),                     & 
     87         &      gru(jpi,jpj)      , grv(jpi,jpj)                      , STAT=ierr(2) ) 
     88         ! 
     89      ALLOCATE( snwice_mass(jpi,jpj)  , snwice_mass_b(jpi,jpj),             & 
     90         &      snwice_fmass(jpi,jpj), STAT= ierr(3) ) 
    8091         ! 
    8192      oce_alloc = MAXVAL( ierr ) 
Note: See TracChangeset for help on using the changeset viewer.