Changeset 447 for branches


Ignore:
Timestamp:
10/12/23 11:52:57 (8 months ago)
Author:
aquiquet
Message:

Cleaning branch: use only statements in out_cptr and strain_rate.

Location:
branches/GRISLIv3/SOURCES
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/GRISLIv3/SOURCES/out_cptr_mod.f90

    r446 r447  
    382382  !   --------------------------------------------------------------- 
    383383 
    384   use module3D_phy 
     384  use module3D_phy, only: num_file1,s,h,b,bsoc,ibase,bmelt,hwater,ux,uy,uxbar,uybar,t,time 
    385385  use runparam, only: itracebug 
    386   use geography, only: geoplace 
     386  use geography, only: nzm,geoplace 
    387387  use netcdf 
    388388  use io_netcdf_grisli 

  • branches/GRISLIv3/SOURCES/strain_rate.f90

    r446 r447  
    2929      subroutine strain_rate()    
    3030 
    31       use module3d_phy 
     31      use module3d_phy, only: uxbar,uybar,epsxx,epsyy,epsxy,eps 
    3232      use runparam, only: itracebug 
    33       use geography, only: dx,dy 
     33      use geography, only: nx,ny,dx,dy 
    3434  
    3535      implicit none 
    3636     
    3737      real dvdx,dudy 
     38      integer :: i,j 
    3839 
    3940!time=tbegin 
Note: See TracChangeset for help on using the changeset viewer.