Changeset 11504 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/LBC
- Timestamp:
- 2019-09-06T09:23:31+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/LBC/lib_mpp.F90
r10538 r11504 157 157 INTEGER, PUBLIC :: ncom_stp = 0 !: copy of time step # istp 158 158 INTEGER, PUBLIC :: ncom_fsbc = 1 !: copy of sbc time step # nn_fsbc 159 INTEGER, PUBLIC :: ncom_dttrc = 1 !: copy of top time step # nn_dttrc160 159 INTEGER, PUBLIC :: ncom_freq !: frequency of comm diagnostic 161 160 INTEGER, PUBLIC , DIMENSION(:,:), ALLOCATABLE :: ncomm_sequence !: size of communicated arrays (halos) … … 1492 1491 ! 1493 1492 ! find the smallest common frequency: default = frequency product, if multiple, choose the larger of the 2 frequency 1494 IF( ncom_dttrc /= 1 ) CALL ctl_stop( 'STOP', 'mpp_report, ncom_dttrc /= 1 not coded...' )1495 1493 ncom_freq = ncom_fsbc 1496 1494 !
Note: See TracChangeset
for help on using the changeset viewer.