Changeset 423 for branches/GRISLIv3


Ignore:
Timestamp:
04/24/23 15:54:03 (15 months ago)
Author:
dumas
Message:

Use only in no-icethick, no_rsl, no_sliding, no_spinup and notracer

Location:
branches/GRISLIv3/SOURCES
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • branches/GRISLIv3/SOURCES/no-icethick.f90

    r421 r423  
    1313subroutine noicethick    
    1414 
    15  
    1615  use module3D_phy, only:time,dtt,isynchro 
    17  
    1816 
    1917  implicit none 

  • branches/GRISLIv3/SOURCES/no_rsl.f90

    r238 r423  
    1313module no_rsl 
    1414 
    15 ! pas de variations locales du niveau marin 
     15  ! pas de variations locales du niveau marin 
    1616 
    17 USE module3D_phy 
    18 implicit none 
    19  
     17  implicit none 
    2018 
    2119contains 
    22 !> SUBROUTINE: input_rsl 
    23 !! Routine permettant d'introduire des variations locales du niveau marin 
    24 !! en anomalie par rapport au niveau eustatique 
    25 !> 
    26 subroutine input_rsl 
    27 end subroutine input_rsl 
     20  !> SUBROUTINE: input_rsl 
     21  !! Routine permettant d'introduire des variations locales du niveau marin 
     22  !! en anomalie par rapport au niveau eustatique 
     23  !> 
     24  subroutine input_rsl 
     25  end subroutine input_rsl 
    2826 
    29 !> SUBROUTINE: rsl 
    30 !! Routine   
    31 !> 
    32 subroutine rsl 
     27  !> SUBROUTINE: rsl 
     28  !! Routine   
     29  !> 
     30  subroutine rsl 
    3331 
    34 sealevel_2d(:,:)=sealevel 
     32    use module3D_phy, only: sealevel_2d,sealevel 
    3533 
    36 end subroutine rsl 
     34    sealevel_2d(:,:)=sealevel 
     35 
     36  end subroutine rsl 
    3737 
    3838end module no_rsl 

  • branches/GRISLIv3/SOURCES/no_sliding.f90

    r4 r423  
    1111module no_sliding 
    1212 
    13 ! pour ne pas passer dans le sliding 
     13  ! pour ne pas passer dans le sliding 
    1414 
    15 USE module3D_phy 
    16 USE param_phy_mod 
    17  
    18 implicit none 
     15  implicit none 
    1916 
    2017 
    2118contains 
    22 !------------------------------------------------------------------------------- 
    23 subroutine init_sliding 
     19  !------------------------------------------------------------------------------- 
     20  subroutine init_sliding 
     21 
     22    use module3D_phy, only: ddbx,ddby 
     23 
     24    ddby(:,:) = 0. 
     25    ddbx(:,:) = 0. 
     26 
     27  end subroutine init_sliding 
    2428 
    2529 
    26 ddby(:,:) = 0. 
    27 ddbx(:,:) = 0. 
    28  
    29 end subroutine init_sliding 
     30  !________________________________________________________________________________ 
     31  subroutine sliding 
    3032 
    3133 
    32 !________________________________________________________________________________ 
    33 subroutine sliding 
    34  
    35  
    36 end subroutine sliding 
     34  end subroutine sliding 
    3735end module no_sliding 
    3836 

  • branches/GRISLIv3/SOURCES/no_spinup_mod.f90

    r238 r423  
    1414module no_spinup 
    1515 
    16 use module3d_phy 
     16  implicit none 
    1717 
    1818contains 
    19 !------------------------------------------------------------------------------------- 
    20 !> SUBROUTINE: init_spinup 
    21 !! Routine permettant d'initialiser les spinup 
    22 !> 
    23 subroutine init_spinup 
     19  !------------------------------------------------------------------------------------- 
     20  !> SUBROUTINE: init_spinup 
     21  !! Routine permettant d'initialiser les spinup 
     22  !> 
     23  subroutine init_spinup 
    2424 
    25 implicit none 
     25    use module3D_phy, only: ispinup,num_param,num_rep_42 
     26    use runparam, only: itracebug 
     27     
     28    implicit none 
    2629 
    27 namelist/spinup/ispinup 
     30    namelist/spinup/ispinup 
    2831 
    2932    ! put here which type of spinup 
    … …  
    3740    ! ispinup = 3                          ! fait le calcul des temperatures  
    3841    !                                      ! avec les vitesses de bilan 
    39    
    4042 
    4143 
    42 ! lecture des parametres 
    4344 
    44 rewind(num_param)        ! pour revenir au debut du fichier param_list.dat 
    45 read(num_param,spinup) 
     45    ! lecture des parametres 
    4646 
    47 write(num_rep_42,*)'!___________________________________________________________' 
    48 write(num_rep_42,*)'!        spinup          module no_spinup               ' 
    49 write(num_rep_42,spinup)                   ! pour ecrire les parametres lus 
    50 write(num_rep_42,*) 
    51 write(num_rep_42,*) 
    52 write(num_rep_42,*)'! ispinup = 0     run standard' 
    53 write(num_rep_42,*)'! ispinup = 1     equilibre temperature avec vitesses grisli ' 
    54 write(num_rep_42,*)'! ispinup = 2     conservation de la masse avec vitesses bilan ' 
    55 write(num_rep_42,*)'! ispinup = 3     equilibre temperature avec vitesses bilan' 
    56 write(num_rep_42,*) 
     47    rewind(num_param)        ! pour revenir au debut du fichier param_list.dat 
     48    read(num_param,spinup) 
    5749 
    58   
    59 if (ispinup.ge.2) then 
    60    write(6,*)' ispinup > 1 must be called with module spinu_vitbil ' 
    61    write(6,*) 'and dragging modules must be removed (see module_choix)' 
    62    stop 
    63 endif 
     50    write(num_rep_42,*)'!___________________________________________________________' 
     51    write(num_rep_42,*)'!        spinup          module no_spinup               ' 
     52    write(num_rep_42,spinup)                   ! pour ecrire les parametres lus 
     53    write(num_rep_42,*) 
     54    write(num_rep_42,*) 
     55    write(num_rep_42,*)'! ispinup = 0     run standard' 
     56    write(num_rep_42,*)'! ispinup = 1     equilibre temperature avec vitesses grisli ' 
     57    write(num_rep_42,*)'! ispinup = 2     conservation de la masse avec vitesses bilan ' 
     58    write(num_rep_42,*)'! ispinup = 3     equilibre temperature avec vitesses bilan' 
     59    write(num_rep_42,*) 
    6460 
    6561 
    66 if (itracebug.eq.1)  call tracebug(' fin routine init_spinup de no_spinup') 
     62    if (ispinup.ge.2) then 
     63       write(6,*)' ispinup > 1 must be called with module spinu_vitbil ' 
     64       write(6,*) 'and dragging modules must be removed (see module_choix)' 
     65       stop 
     66    endif 
    6767 
    68 end subroutine init_spinup 
    69 !------------------------------------------------------------------------------------- 
    70 subroutine force_balance_vel 
    7168 
    72 if (itracebug.eq.1)  call tracebug(' Subroutine force_balance_vel dans no_spinup') 
     69    if (itracebug.eq.1)  call tracebug(' fin routine init_spinup de no_spinup') 
    7370 
    74 end subroutine force_balance_vel 
    75 !------------------------------------------------------------------------------------- 
    76 subroutine limit_coef_vitbil 
     71  end subroutine init_spinup 
     72  !------------------------------------------------------------------------------------- 
     73  subroutine force_balance_vel 
    7774 
    78 if (itracebug.eq.1)  call tracebug(' Subroutine limit_coef_vitbil dans no_spinup') 
     75    use runparam, only: itracebug 
    7976 
    80 end subroutine limit_coef_vitbil 
    81 !------------------------------------------------------------------------------------- 
    82 subroutine calc_coef_vitbil 
     77    if (itracebug.eq.1)  call tracebug(' Subroutine force_balance_vel dans no_spinup') 
    8378 
    84 if (itracebug.eq.1)  call tracebug(' Subroutine limit_coef_vitbil dans no_spinup') 
     79  end subroutine force_balance_vel 
     80  !------------------------------------------------------------------------------------- 
     81  subroutine limit_coef_vitbil 
    8582 
    86 end subroutine calc_coef_vitbil 
    87 !------------------------------------------------------------------------------------- 
     83    use runparam, only: itracebug 
     84 
     85    if (itracebug.eq.1)  call tracebug(' Subroutine limit_coef_vitbil dans no_spinup') 
     86 
     87  end subroutine limit_coef_vitbil 
     88  !------------------------------------------------------------------------------------- 
     89  subroutine calc_coef_vitbil 
     90 
     91    use runparam, only: itracebug 
     92 
     93    if (itracebug.eq.1)  call tracebug(' Subroutine limit_coef_vitbil dans no_spinup') 
     94 
     95  end subroutine calc_coef_vitbil 
     96  !------------------------------------------------------------------------------------- 
    8897 
    8998 

  • branches/GRISLIv3/SOURCES/notracer_mod.f90

    r4 r423  
    55module notracer_mod  
    66 
    7   use tracer_vars  ! pour ne pas avoir de probleme avec les sorties ncdf 
     7  use module3d_phy, only: itracer 
     8  use tracer_vars, only: tdep,xdep,ydep  ! pour ne pas avoir de probleme avec les sorties ncdf 
    89  implicit none 
    910 
Note: See TracChangeset for help on using the changeset viewer.