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 302 for trunk/NEMO/OPA_SRC/DOM – NEMO

Changeset 302 for trunk/NEMO/OPA_SRC/DOM


Ignore:
Timestamp:
2005-09-22T15:49:21+02:00 (19 years ago)
Author:
opalod
Message:

nemo_v1_bugfix_011 : CT : gdept has been added to the header of the 'processor' files. It is used when re-building the ncdf meshmask files from the processor files

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/DOM/domwri_dimg.h90

    r247 r302  
    4242      !! * Local declarations 
    4343      !! * Local declarations 
    44       INTEGER  ::                & !!! * temprary units for : 
     44      INTEGER  ::                & !!! * temporary units for : 
    4545         inum0 ,                 &  ! 'mesh_mask.nc' file 
    4646         inum1 ,                 &  ! 'mesh.nc'      file 
    … …  
    8484             IF (lwp )WRITE(inum0,REC=1 ) irecl8, nmsh, ios1,ios2 , & 
    8585            &  ndastp, adatrj, jpi,jpj,jpk,  & 
    86             &  jpni,jpnj,jpnij,jpiglo,jpjglo, & 
     86            &  jpni,jpnj,jpnij,jpiglo,jpjglo, gdept ,& 
    8787            &  nlcit,nlcjt, nldit, nldjt, nleit, nlejt, nimppt, njmppt 
    8888 
    … …  
    103103             IF (lwp) WRITE(inum1,REC=1 ) irecl8, nmsh, ios1,ios2 , & 
    104104            &  ndastp, adatrj, jpi,jpj,jpk,  & 
    105             &  jpni,jpnj,jpnij,jpiglo,jpjglo, & 
     105            &  jpni,jpnj,jpnij,jpiglo,jpjglo, gdept ,& 
    106106            &  nlcit,nlcjt, nldit, nldjt, nleit, nlejt, nimppt, njmppt 
    107107 
    … …  
    112112             IF (lwp) WRITE(inum2,REC=1 ) irecl8, nmsh, ios1,ios2 , & 
    113113            &  ndastp, adatrj, jpi,jpj,jpk,  & 
    114             &  jpni,jpnj,jpnij,jpiglo,jpjglo, & 
     114            &  jpni,jpnj,jpnij,jpiglo,jpjglo, gdept ,& 
    115115            &  nlcit,nlcjt, nldit, nldjt, nleit, nlejt, nimppt, njmppt 
    116116 
    … …  
    130130             IF (lwp) WRITE(inum3,REC=1 ) irecl8, nmsh, ios1,ios2 , & 
    131131            &  ndastp, adatrj, jpi,jpj,jpk,  & 
    132             &  jpni,jpnj,jpnij,jpiglo,jpjglo, & 
     132            &  jpni,jpnj,jpnij,jpiglo,jpjglo, gdept ,& 
    133133            &  nlcit,nlcjt, nldit, nldjt, nleit, nlejt, nimppt, njmppt 
    134134 
    … …  
    137137             IF (lwp) WRITE(inum2,REC=1 ) irecl8, nmsh, ios1,ios2 , & 
    138138            &  ndastp, adatrj, jpi,jpj,jpk,  & 
    139             &  jpni,jpnj,jpnij,jpiglo,jpjglo, & 
     139            &  jpni,jpnj,jpnij,jpiglo,jpjglo, gdept ,& 
    140140            &  nlcit,nlcjt, nldit, nldjt, nleit, nlejt, nimppt, njmppt 
    141141 
    … …  
    144144             IF (lwp) WRITE(inum4,REC=1 ) irecl8, nmsh, ios1,ios2 , & 
    145145            &  ndastp, adatrj, jpi,jpj,jpk,  & 
    146             &  jpni,jpnj,jpnij,jpiglo,jpjglo, & 
     146            &  jpni,jpnj,jpnij,jpiglo,jpjglo, gdept ,& 
    147147            &  nlcit,nlcjt, nldit, nldjt, nleit, nlejt, nimppt, njmppt 
    148148          
Note: See TracChangeset for help on using the changeset viewer.