New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 15323 – NEMO

Changeset 15323


Ignore:
Timestamp:
2021-10-04T13:17:13+02:00 (3 years ago)
Author:
dbruciaferri
Message:

modifying initial condition for Denamrk Strait idealised ovf

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/UKMO/NEMO_4.0.4_idealised_ovf/src/OCE/USR/usrdef_istate.F90

    r15161 r15323  
    5252      ! 
    5353      INTEGER                                              ::   ji, jj, kk, num_pnt, ierr0, ierr1 
    54       INTEGER , DIMENSION(38)                              ::   dst_ji, dst_jj ! arrays for overflow 
     54      INTEGER , DIMENSION(18)                              ::   dst_ji, dst_jj ! arrays for overflow 
    5555      INTEGER , DIMENSION(164)                             ::   ifr_ji, ifr_jj ! arrays for overflow 
    5656      INTEGER , ALLOCATABLE                , DIMENSION(:)  ::   ovf_ji, ovf_jj ! arrays for overflow 
    … …  
    7272      ! Denmark Strait idealised overflow 
    7373      dst_ji = (/ & 
    74                   & 1041, 1041, 1041, 1042, 1039, 1040, 1041, 1042, & 
    75                   & 1039, 1040, 1041, 1042, 1043, 1041, 1042, 1043, & 
    76                   & 1044, 1042, 1043, 1044, 1045, 1043, 1044, 1045, & 
    77                   & 1046, 1043, 1044, 1045, 1046, 1047, 1048, 1043, & 
    78                   & 1044, 1045, 1046, 1047, 1044, 1045              & 
     74                  & 1041, 1041,       & 
     75                  & 1042, 1042, 1042, & 
     76                  & 1043, 1043, 1043, & 
     77                  & 1044, 1044, 1044, & 
     78                  & 1045, 1045, 1045, & 
     79                  & 1046, 1046, 1046, & 
     80                  & 1047              & 
    7981                  & /) 
    8082 
    8183      dst_jj = (/ & 
    82                   & 1012, 1013, 1014, 1014, 1015, 1015, 1015, 1015, & 
    83                   & 1016, 1016, 1016, 1016, 1016, 1017, 1017, 1017, & 
    84                   & 1017, 1018, 1018, 1018, 1018, 1019, 1019, 1019, & 
    85                   & 1019, 1020, 1020, 1020, 1020, 1020, 1020, 1021, & 
    86                   & 1021, 1021, 1021, 1021, 1022, 1022              & 
     84                  & 1015, 1016,       & 
     85                  & 1015, 1016, 1017, & 
     86                  & 1016, 1017, 1018, & 
     87                  & 1017, 1018, 1019, & 
     88                  & 1018, 1019, 1020, & 
     89                  & 1019, 1020, 1021, & 
     90                  & 1020              & 
    8791                  & /) 
    8892 
Note: See TracChangeset for help on using the changeset viewer.