Ignore:
Timestamp:
01/26/24 10:24:00 (4 months ago)
Author:
aquiquet
Message:

Cleaning branch: start cleaning module3D

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/GRISLIv3/SOURCES/Hemin40_files/output_hemin40_mod.f90

    r120 r465  
    3333subroutine init_outshort 
    3434 
    35 !ndisp sorite courte tous les ndisp 
    36 NDISP=100 
     35integer :: i,j 
     36 
    3737mask_cal(:,:,:)=.false. 
    3838mask_cal(:,:,1)=.true. 
    … …  
    152152! 1_initialization 
    153153!------------------ 
    154       integer KK 
     154      integer k, KK, np 
    155155!     integer inpl, INPG, INPF 
    156156!     integer inplab,inpkeew,inpinn,inpcord 
Note: See TracChangeset for help on using the changeset viewer.