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 2671 for vendors/AGRIF/current/AGRIF_FILES/modinit.F – NEMO

Ignore:
Timestamp:
2011-03-08T15:08:49+01:00 (13 years ago)
Author:
rblod
Message:

Load working_directory into vendors/AGRIF/current.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • vendors/AGRIF/current/AGRIF_FILES/modinit.F

    r1901 r2671  
    135135         Agrif_Gr % tabvars(i) % var % nbdim = 0 
    136136C 
    137          if (associated(Agrif_Gr%tabvars(i)%var%array1)) then 
     137         if (allocated(Agrif_Gr%tabvars(i)%var%array1)) then 
    138138             Agrif_Gr % tabvars(i) % var % nbdim = 1 
    139139             Agrif_Gr % tabvars(i) % var % lb(1:1) =  
    … …  
    142142     &         ubound(Agrif_Gr%tabvars(i)%var%array1)      
    143143         endif 
    144          if (associated(Agrif_Gr%tabvars(i)%var%array2)) then 
     144         if (allocated(Agrif_Gr%tabvars(i)%var%array2)) then 
    145145             Agrif_Gr % tabvars(i) % var % nbdim = 2 
    146146             Agrif_Gr % tabvars(i) % var % lb(1:2) =  
    … …  
    149149     &         ubound(Agrif_Gr%tabvars(i)%var%array2) 
    150150         endif 
    151          if (associated(Agrif_Gr%tabvars(i)%var%array3)) then 
     151         if (allocated(Agrif_Gr%tabvars(i)%var%array3)) then 
    152152             Agrif_Gr % tabvars(i) % var % nbdim = 3 
    153153             Agrif_Gr % tabvars(i) % var % lb(1:3) =  
    … …  
    156156     &         ubound(Agrif_Gr%tabvars(i)%var%array3) 
    157157         endif 
    158          if (associated(Agrif_Gr%tabvars(i)%var%array4)) then 
     158         if (allocated(Agrif_Gr%tabvars(i)%var%array4)) then 
    159159             Agrif_Gr % tabvars(i) % var % nbdim = 4 
    160160             Agrif_Gr % tabvars(i) % var % lb(1:4) =  
    … …  
    163163     &         ubound(Agrif_Gr%tabvars(i)%var%array4) 
    164164         endif 
    165          if (associated(Agrif_Gr%tabvars(i)%var%array5)) then 
     165         if (allocated(Agrif_Gr%tabvars(i)%var%array5)) then 
    166166             Agrif_Gr % tabvars(i) % var % nbdim = 5 
    167167             Agrif_Gr % tabvars(i) % var % lb(1:5) =  
    … …  
    170170     &         ubound(Agrif_Gr%tabvars(i)%var%array5) 
    171171         endif 
    172          if (associated(Agrif_Gr%tabvars(i)%var%array6)) then 
     172         if (allocated(Agrif_Gr%tabvars(i)%var%array6)) then 
    173173             Agrif_Gr % tabvars(i) % var % nbdim = 6 
    174174             Agrif_Gr % tabvars(i) % var % lb(1:6) =  
    … …  
    178178         endif 
    179179C 
    180          if (associated(Agrif_Gr%tabvars(i)%var%darray1)) then 
    181              Agrif_Gr % tabvars(i) % var % nbdim = 1 
    182          endif 
    183          if (associated(Agrif_Gr%tabvars(i)%var%darray2)) then 
    184              Agrif_Gr % tabvars(i) % var % nbdim = 2 
    185          endif 
    186          if (associated(Agrif_Gr%tabvars(i)%var%darray3)) then 
    187              Agrif_Gr % tabvars(i) % var % nbdim = 3 
    188          endif 
    189          if (associated(Agrif_Gr%tabvars(i)%var%darray4)) then 
    190              Agrif_Gr % tabvars(i) % var % nbdim = 4 
    191          endif 
    192          if (associated(Agrif_Gr%tabvars(i)%var%darray5)) then 
    193              Agrif_Gr % tabvars(i) % var % nbdim = 5 
    194          endif 
    195          if (associated(Agrif_Gr%tabvars(i)%var%darray6)) then 
    196              Agrif_Gr % tabvars(i) % var % nbdim = 6 
    197          endif 
    198 C 
    199          if (associated(Agrif_Gr%tabvars(i)%var%larray1)) then 
    200              Agrif_Gr % tabvars(i) % var % nbdim = 1 
    201          endif 
    202          if (associated(Agrif_Gr%tabvars(i)%var%larray2)) then 
    203              Agrif_Gr % tabvars(i) % var % nbdim = 2 
    204          endif 
    205          if (associated(Agrif_Gr%tabvars(i)%var%larray3)) then 
    206              Agrif_Gr % tabvars(i) % var % nbdim = 3 
    207          endif 
    208          if (associated(Agrif_Gr%tabvars(i)%var%larray4)) then 
    209              Agrif_Gr % tabvars(i) % var % nbdim = 4 
    210          endif 
    211          if (associated(Agrif_Gr%tabvars(i)%var%larray5)) then 
    212              Agrif_Gr % tabvars(i) % var % nbdim = 5 
    213          endif 
    214          if (associated(Agrif_Gr%tabvars(i)%var%larray6)) then 
    215              Agrif_Gr % tabvars(i) % var % nbdim = 6 
    216          endif 
    217 C 
    218          if (associated(Agrif_Gr%tabvars(i)%var%iarray1)) then 
    219              Agrif_Gr % tabvars(i) % var % nbdim = 1 
    220          endif 
    221          if (associated(Agrif_Gr%tabvars(i)%var%iarray2)) then 
    222              Agrif_Gr % tabvars(i) % var % nbdim = 2 
    223          endif 
    224          if (associated(Agrif_Gr%tabvars(i)%var%iarray3)) then 
    225              Agrif_Gr % tabvars(i) % var % nbdim = 3 
    226          endif 
    227          if (associated(Agrif_Gr%tabvars(i)%var%iarray4)) then 
    228              Agrif_Gr % tabvars(i) % var % nbdim = 4 
    229          endif 
    230          if (associated(Agrif_Gr%tabvars(i)%var%iarray5)) then 
    231              Agrif_Gr % tabvars(i) % var % nbdim = 5 
    232          endif 
    233          if (associated(Agrif_Gr%tabvars(i)%var%iarray6)) then 
    234              Agrif_Gr % tabvars(i) % var % nbdim = 6 
    235          endif 
    236 C 
    237          if (associated(Agrif_Gr%tabvars(i)%var%carray1)) then 
    238              Agrif_Gr % tabvars(i) % var % nbdim = 1 
    239          endif 
    240          if (associated(Agrif_Gr%tabvars(i)%var%carray2)) then 
     180         if (allocated(Agrif_Gr%tabvars(i)%var%darray1)) then 
     181             Agrif_Gr % tabvars(i) % var % nbdim = 1 
     182         endif 
     183         if (allocated(Agrif_Gr%tabvars(i)%var%darray2)) then 
     184             Agrif_Gr % tabvars(i) % var % nbdim = 2 
     185         endif 
     186         if (allocated(Agrif_Gr%tabvars(i)%var%darray3)) then 
     187             Agrif_Gr % tabvars(i) % var % nbdim = 3 
     188         endif 
     189         if (allocated(Agrif_Gr%tabvars(i)%var%darray4)) then 
     190             Agrif_Gr % tabvars(i) % var % nbdim = 4 
     191         endif 
     192         if (allocated(Agrif_Gr%tabvars(i)%var%darray5)) then 
     193             Agrif_Gr % tabvars(i) % var % nbdim = 5 
     194         endif 
     195         if (allocated(Agrif_Gr%tabvars(i)%var%darray6)) then 
     196             Agrif_Gr % tabvars(i) % var % nbdim = 6 
     197         endif 
     198C 
     199         if (allocated(Agrif_Gr%tabvars(i)%var%larray1)) then 
     200             Agrif_Gr % tabvars(i) % var % nbdim = 1 
     201         endif 
     202         if (allocated(Agrif_Gr%tabvars(i)%var%larray2)) then 
     203             Agrif_Gr % tabvars(i) % var % nbdim = 2 
     204         endif 
     205         if (allocated(Agrif_Gr%tabvars(i)%var%larray3)) then 
     206             Agrif_Gr % tabvars(i) % var % nbdim = 3 
     207         endif 
     208         if (allocated(Agrif_Gr%tabvars(i)%var%larray4)) then 
     209             Agrif_Gr % tabvars(i) % var % nbdim = 4 
     210         endif 
     211         if (allocated(Agrif_Gr%tabvars(i)%var%larray5)) then 
     212             Agrif_Gr % tabvars(i) % var % nbdim = 5 
     213         endif 
     214         if (allocated(Agrif_Gr%tabvars(i)%var%larray6)) then 
     215             Agrif_Gr % tabvars(i) % var % nbdim = 6 
     216         endif 
     217C 
     218         if (allocated(Agrif_Gr%tabvars(i)%var%iarray1)) then 
     219             Agrif_Gr % tabvars(i) % var % nbdim = 1 
     220         endif 
     221         if (allocated(Agrif_Gr%tabvars(i)%var%iarray2)) then 
     222             Agrif_Gr % tabvars(i) % var % nbdim = 2 
     223         endif 
     224         if (allocated(Agrif_Gr%tabvars(i)%var%iarray3)) then 
     225             Agrif_Gr % tabvars(i) % var % nbdim = 3 
     226         endif 
     227         if (allocated(Agrif_Gr%tabvars(i)%var%iarray4)) then 
     228             Agrif_Gr % tabvars(i) % var % nbdim = 4 
     229         endif 
     230         if (allocated(Agrif_Gr%tabvars(i)%var%iarray5)) then 
     231             Agrif_Gr % tabvars(i) % var % nbdim = 5 
     232         endif 
     233         if (allocated(Agrif_Gr%tabvars(i)%var%iarray6)) then 
     234             Agrif_Gr % tabvars(i) % var % nbdim = 6 
     235         endif 
     236C 
     237         if (allocated(Agrif_Gr%tabvars(i)%var%carray1)) then 
     238             Agrif_Gr % tabvars(i) % var % nbdim = 1 
     239         endif 
     240         if (allocated(Agrif_Gr%tabvars(i)%var%carray2)) then 
    241241             Agrif_Gr % tabvars(i) % var % nbdim = 2 
    242242         endif 
Note: See TracChangeset for help on using the changeset viewer.