Startseite Erkunden Hilfe
Anmelden
pbarriat
/
ecearth3
1
0
Fork 0
Dateien Issues 0 Pull-Requests 0 Wiki
Struktur: 611d32b243
Branches Tags
ecearth3
/
sources
/
nemo-3.6
/
NEMO
/
LIM_SRC_3
/
dom_ice.F90

dom_ice.F90 2.1 KB
Verlauf Originalformat

12345678910111213141516171819202122232425262728293031323334353637383940414243444546 
  1. MODULE dom_ice
    2. 

  2.    !!======================================================================
    3. 

  3.    !!                   ***  MODULE  dom_ice  ***
    4. 

  4.    !! LIM-3 Sea Ice :   Domain  variables
    5. 

  5.    !!======================================================================
    6. 

  6.    !! History :  3.0  ! 2003-08  (M. Vancoppenolle)  LIM-3 original code
    7. 

  7.    !!            3.5  ! 2011-02  (G. Madec) dynamical allocation
    8. 

  8.    !!----------------------------------------------------------------------
    9. 

  9.    USE in_out_manager ! I/O manager
    10. 

  10.    USE lib_mpp        ! MPP library
    11. 

  11.    USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)  
    12. 

  12. 

  13.    IMPLICIT NONE
    14. 

  14.    PRIVATE
    15. 

  15. 

  16.    PUBLIC dom_ice_alloc   ! Routine called by nemogcm.F90
    17. 

  17. 

  18.    LOGICAL, PUBLIC ::   l_jeq = .TRUE.       !: Equator inside the domain flag
    19. 

  19. 

  20.    INTEGER, PUBLIC ::   njeq , njeqm1        !: j-index of the equator if it is inside the domain
    21. 

  21. 

  22.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)     ::   fcor   !: coriolis coefficient
    23. 

  23.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:,:) ::   wght   !: weight of the 4 neighbours to compute averages
    24. 

  24. 

  25.    !!----------------------------------------------------------------------
    26. 

  26.    !! NEMO/LIM3 4.0 , UCL - NEMO Consortium (2011)
    27. 

  27.    !! $Id: dom_ice.F90 4161 2013-11-07 10:01:27Z cetlod $
    28. 

  28.    !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
    29. 

  29.    !!----------------------------------------------------------------------
    30. 

  30. CONTAINS
    31. 

  31. 

  32.    FUNCTION dom_ice_alloc()
    33. 

  33.       !!-------------------------------------------------------------------
    34. 

  34.       !!            *** Routine dom_ice_alloc ***
    35. 

  35.       !!-------------------------------------------------------------------
    36. 

  36.       INTEGER :: dom_ice_alloc
    37. 

  37.       !!-------------------------------------------------------------------
    38. 

  38.       !
    39. 

  39.       ALLOCATE( fcor(jpi,jpj), wght(jpi,jpj,2,2), STAT = dom_ice_alloc )
    40. 

  40.       !
    41. 

  41.       IF( dom_ice_alloc /= 0 )   CALL ctl_warn( 'dom_ice_alloc: failed to allocate arrays.' )
    42. 

  42.       !
    43. 

  43.    END FUNCTION dom_ice_alloc
    44. 

  44. 

  45.    !!======================================================================
    46. 

  46. END MODULE dom_ice
    47.