Changeset 6827 for branches/2016/dev_r6409_SIMPLIF_2_usrdef_tools/NEMOGCM/NEMO/OPA_SRC/DOM/domcfg.F90
- Timestamp:
- 2016-08-01T15:37:15+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r6409_SIMPLIF_2_usrdef_tools/NEMOGCM/NEMO/OPA_SRC/DOM/domcfg.F90
r6140 r6827 16 16 USE lib_mpp ! distributed memory computing library 17 17 USE timing ! Timing 18 USE c1d ! 1D configuration19 USE domc1d ! 1D configuration: column location20 18 21 19 IMPLICIT NONE … … 82 80 !!---------------------------------------------------------------------- 83 81 ! ! recalculate jpizoom/jpjzoom given lat/lon 84 IF( lk_c1d .AND. ln_c1d_locpt ) CALL dom_c1d( rn_lat1d, rn_lon1d )85 82 ! 86 83 ! ! ============== !
Note: See TracChangeset
for help on using the changeset viewer.