Oasis3 4.0.2
|
00001 MODULE mod_coast 00002 ! 00003 ! -- coast.h 01-11-95 Version 2.0 Author: Laurent Terray 00004 ! ******* 00005 !@ 00006 !@ Contents : variables and arrays related to the coast correction 00007 !@ -------- 00008 !@ 00009 !@ Anaism --->>> 00010 !@ 00011 !@ Rappel: 00012 !@ -- nmesh : number of ocean gcm-1 squares overlapped by a given gcm-2 00013 !@ square (1D) 00014 !@ End of rappel 00015 !@ 00016 !@ -- ncoast : number of coastal ocean squares on the gcm-2 grid for which 00017 !@ there are no underlying ocean squares on the gcm-1 grid 00018 !@ 00019 !@ -- npcoast : coast mismatch data array (2D) 00020 !@ (n,1) --> 1D index of nth point described above 00021 !@ (n,2) --> number of neighbours suitable for extrapolating SST 00022 !@ (n,3-6) --> 1D indices of neighbours of nth point 00023 !@ 00024 !@ -- nfcoast : flag to perform coast mismatch correction 00025 !@ 00026 !@ -- lcoast : initialization flag 00027 !@ 00028 ! ------------------------------------------------------------------- 00029 ! 00030 USE mod_kinds_oasis 00031 INTEGER (kind=ip_intwp_p), DIMENSION(:,:), ALLOCATABLE :: npcoast 00032 INTEGER (kind=ip_intwp_p) :: ncoast, nfcoast 00033 ! 00034 LOGICAL :: lcoast 00035 ! 00036 ! ------------------------------------------------------------------- 00037 ! 00038 END MODULE mod_coast