Changeset 420 for branches/GRISLIv3


Ignore:
Timestamp:
04/24/23 11:47:09 (15 months ago)
Author:
dumas
Message:

Use only in no_claving and no_ablation : compile but not tested

Location:
branches/GRISLIv3/SOURCES
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/GRISLIv3/SOURCES/no_ablation_mod.f90

    r4 r420  
    77!! \author Cat 
    88!! \date 31 oct 2011 
    9 !! @note Used module 
    10 !! @note use module3D_phy 
    119!! 
    1210!< 
    13       
     11 
    1412module no_ablation           
    1513 
    16 use module3d_phy 
    17 implicit none 
    18  
     14  implicit none 
    1915 
    2016contains 
    21 !------------------------------------------------------------------------------- 
     17  !------------------------------------------------------------------------------- 
    2218 
    23 !> SUBROUTINE: init_ablation 
    24 !! @note Attribution des parametres lies a la methode de calcul  
    25 !> 
    26 subroutine init_ablation 
     19  !> SUBROUTINE: init_ablation 
     20  !! @note Attribution des parametres lies a la methode de calcul  
     21  !> 
     22  subroutine init_ablation 
    2723 
    28 end subroutine init_ablation 
     24  end subroutine init_ablation 
    2925 
    30 !----------------------------------------------------------------------------- 
    31 !> SUBROUTINE: ablation 
    32 !! 
    33 !> 
    34 subroutine ablation 
     26  !----------------------------------------------------------------------------- 
     27  !> SUBROUTINE: ablation 
     28  !! 
     29  !> 
     30  subroutine ablation 
    3531 
    36 end subroutine ablation 
     32  end subroutine ablation 
    3733 
    3834end module no_ablation 

  • branches/GRISLIv3/SOURCES/no_calving.f90

    r4 r420  
    1616module no_calving 
    1717 
    18 use module3D_phy 
    19 implicit none 
     18  implicit none 
    2019 
    2120contains 
    2221 
    23 !--------------------------------------------------------------------------------------- 
    24 subroutine init_calving 
     22  !--------------------------------------------------------------------------------------- 
     23  subroutine init_calving 
    2524 
     25    use module3D_phy, only:calv 
    2626 
    27 calv(:,:)=0.  
     27    calv(:,:)=0.  
    2828 
    29 end subroutine init_calving 
    30 !--------------------------------------------------------------------------------------- 
    31 subroutine calving 
     29  end subroutine init_calving 
     30  !--------------------------------------------------------------------------------------- 
     31  subroutine calving 
    3232 
    33 calv(:,:)=0.  
     33    use module3D_phy, only: calv 
    3434 
    35 end subroutine calving 
    36 !------------------------------------------------------------------------------------------ 
     35    calv(:,:)=0.  
     36 
     37  end subroutine calving 
     38  !------------------------------------------------------------------------------------------ 
    3739end module no_calving 
    38   
     40 
Note: See TracChangeset for help on using the changeset viewer.