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 2715 for trunk/NEMOGCM/NEMO/LIM_SRC_3/limwri_dimg.h90 – NEMO

Ignore:
Timestamp:
2011-03-30T17:58:35+02:00 (13 years ago)
Author:
rblod
Message:

First attempt to put dynamic allocation on the trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/LIM_SRC_3/limwri_dimg.h90

    r2528 r2715  
    1414   !!  modif : 03/06/98 
    1515   !!------------------------------------------------------------------- 
    16    !! * Local variables 
    1716   USE  diawri, ONLY : dia_wri_dimg 
    1817   REAL(wp),DIMENSION(1) ::   zdept 
    1918 
    20    REAL(wp) :: & 
    21       zsto, zsec, zjulian,zout, & 
    22       zindh,zinda,zindb,  & 
    23       ztmu 
    24    REAL(wp), DIMENSION(jpi,jpj,jpnoumax) :: & 
    25       zcmo 
    26    REAL(wp), DIMENSION(jpi,jpj) ::  & 
    27       zfield 
    28    INTEGER, SAVE :: nmoyice, &  !: counter for averaging 
    29       &             nwf         !: number of fields to write on disk 
     19   REAL(wp) ::   zsto, zsec, zjulian,zout, & 
     20   REAL(wp) ::   zindh,zinda,zindb, ztmu 
     21   REAL(wp), DIMENSION(jpi,jpj,jpnoumax) ::   zcmo 
     22   REAL(wp), DIMENSION(jpi,jpj) ::   zfield 
     23   INTEGER, SAVE ::   nmoyice   !: counter for averaging 
     24   INTEGER, SAVE ::   nwf       !: number of fields to write on disk 
    3025   INTEGER, SAVE,DIMENSION (:), ALLOCATABLE  :: nsubindex   !: subindex to be saved 
    3126   ! according to namelist 
     
    4338 
    4439 
    45    INTEGER , SAVE ::      & 
    46       nice, nhorid, ndim, niter, ndepid 
    47    INTEGER , DIMENSION( jpij ) , SAVE ::  & 
    48       ndex51   
     40   INTEGER , SAVE ::   nice, nhorid, ndim, niter, ndepid 
     41   INTEGER , DIMENSION( jpij ) , SAVE ::   ndex51   
    4942   !!------------------------------------------------------------------- 
    5043   IF ( numit == nstart ) THEN  
Note: See TracChangeset for help on using the changeset viewer.