Changeset 73 for trunk/SOURCES/Temperature-routines/icetemp_declar_mod.f90

Timestamp:

06/22/16 15:43:40 (8 years ago)

Author:

dumas

Message:

OpenMP parallelization in Temperature-routines, deformation_mod_2lois and resol_adv_diff_2D-sept2009

File:

• trunk/SOURCES/Temperature-routines/icetemp_declar_mod.f90 (modified) (2 diffs)

trunk/SOURCES/Temperature-routines/icetemp_declar_mod.f90

@@ -22 +22 @@
   Integer :: Nfracq   !< Exposant Fracq
   Integer :: Iq       !< Choix Du Type De Routine Chaleur
-  Real :: Sx,Sy,Sx2,Sy2,Deh22,Tss
-  Real ::  Dou,Dah,Duu,Dzz,Dzi,Chalbed,Ct_bas,Ct_haut
+  Real :: Sx,Sy,Sx2,Sy2,Deh22 ! ,Tss
+  Real ::  Dou,Duu,Chalbed ! ,Dah,Dzz,Dzi,Ct_bas,Ct_haut
 
   Real,Parameter :: Acof1=-0.0575  !< Pour La Temperature De L'Eau De Mer
@@ -40 +40 @@
   ! _______________
 
-  Real,allocatable,Dimension(:) :: Aa    !< Work Arrays For Tridiag  !Dim Nn
-  Real,allocatable,Dimension(:) :: Bb    !< Work Arrays For Tridiag  !Dim Nn
-  Real,allocatable,Dimension(:) :: Cc    !< Work Arrays For Tridiag  !Dim Nn
-  Real,allocatable,Dimension(:) :: Rr    !< Work Arrays For Tridiag  !Dim Nn
-  Real,allocatable,Dimension(:) :: Hh    !< Work Arrays For Tridiag  !Dim Nn
+  Real,Dimension(Nn) :: Aa    !< Work Arrays For Tridiag  !Dim Nn
+  Real,Dimension(Nn) :: Bb    !< Work Arrays For Tridiag  !Dim Nn
+  Real,Dimension(Nn) :: Cc    !< Work Arrays For Tridiag  !Dim Nn
+  Real,Dimension(Nn) :: Rr    !< Work Arrays For Tridiag  !Dim Nn
+  Real,Dimension(Nn) :: Hh    !< Work Arrays For Tridiag  !Dim Nn
 
-  Real,allocatable,Dimension(:) :: Tdot   !< Temperature Time Derivative*Dtt  
-  Real,allocatable,Dimension(:) :: Abis,Bbis,Cbis,Rbis,Hbis                   
-  Real,allocatable,Dimension(:) :: Ee        !< Vertical Coordinate In Ice, Scaled To H Zeta  
+  Real,Dimension(Nz+Nzm) :: Tdot   !< Temperature Time Derivative*Dtt  
+!  Real,allocatable,Dimension(:) :: Abis,Bbis,Cbis,Rbis,Hbis                   
+  Real,Dimension(Nz) :: Ee        !< Vertical Coordinate In Ice, Scaled To H Zeta  
 
   ! Tableaux De Travail 2d 
   ! ___________________________
-  Real,allocatable,Dimension(:,:):: Tbmer    !< Temperature De La Mer A La Base De L'Ice Shelf  
-  Real,allocatable,Dimension(:,:) :: Chalglissx,Chalglissy !< Chaleur De Glissement             
-  Integer,allocatable,Dimension(:,:) :: Iadvec_w,Iadvec_e,Iadvec_s,Iadvec_n   
+  Real,Dimension(Nx,Ny):: Tbmer    !< Temperature De La Mer A La Base De L'Ice Shelf  
+  Real,Dimension(Nx,Ny) :: Chalglissx,Chalglissy !< Chaleur De Glissement             
+  Integer,Dimension(Nx,Ny) :: Iadvec_w,Iadvec_e,Iadvec_s,Iadvec_n   
   ! Pour L'Advection        
 
   ! Tableaux De Travail 3d
   ! __________________________
-  Real,allocatable,Dimension(:,:,:,:) :: Chalx, Chaly         !Dim Nx,Ny,Nz,N1poly:N2poly
+  Real,Dimension(Nx,Ny,Nz,size(Btt,4)) :: Chalx, Chaly         !Dim Nx,Ny,Nz,N1poly:N2poly
   ! Utilise Pour Calculer La Chaleur De Deformation Selon Xx Yy Zz Et Xy
-  Real,allocatable,Dimension(:,:,:) :: Ffx,Ffy                                       
-  Real,allocatable,Dimension(:,:,:) :: T3d_new                      
-  Real,allocatable,Dimension(:,:,:) :: Chal2_x, Chal2_y, Chal2_z, Chal2_xy
-  Real,allocatable,Dimension(:,:,:) :: Chaldef_maj   !< Chaleur De Deformation                   
-  Real,allocatable,Dimension(:,:,:) :: Advecx,Advecy,Advec
+  Real,Dimension(Nx,Ny,size(Btt,4)) :: Ffx,Ffy                                       
+  Real,Dimension(Nx,Ny,Nz+Nzm) :: T3d_new                      
+  Real,Dimension(Nx,Ny,Nz) :: Chal2_x, Chal2_y, Chal2_z, Chal2_xy
+  Real,Dimension(Nx,Ny,Nz) :: Chaldef_maj   !< Chaleur De Deformation                   
+  Real,Dimension(Nx,Ny,Nz) :: Advecx,Advecy,Advec
   Real,Dimension(Nx,Ny,Nz) :: Cp            !< Specific Heat Capacity (J/(M-3)/K)=Ro Cp  
   Real,Dimension(Nx,Ny,Nz) :: Ct            !< Thermal Conductivity (J/M/K/A)