Changeset 4847 for branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/SAO_SRC/sao_intp.F90
- Timestamp:
- 2014-11-12T15:09:35+01:00 (9 years ago)
- File:
-
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/SAO_SRC/sao_intp.F90
r4846 r4847 1 MODULE ooo_intp1 MODULE sao_intp 2 2 !!====================================================================== 3 !! *** MODULE ooo_intp ***3 !! *** MODULE sao_intp *** 4 4 !! ** Purpose : Run NEMO observation operator in offline mode 5 5 !!====================================================================== … … 14 14 PRIVATE 15 15 16 PUBLIC ooo_interp16 PUBLIC sao_interp 17 17 18 18 CONTAINS 19 19 20 SUBROUTINE ooo_interp20 SUBROUTINE sao_interp 21 21 !!---------------------------------------------------------------------- 22 !! *** SUBROUTINE ooo_interp ***22 !! *** SUBROUTINE sao_interp *** 23 23 !! 24 24 !! ** Purpose : To interpolate the model as if it were running online. … … 44 44 istp = istp + 1 45 45 END DO 46 END SUBROUTINE ooo_interp46 END SUBROUTINE sao_interp 47 47 48 END MODULE ooo_intp48 END MODULE sao_intp
Note: See TracChangeset
for help on using the changeset viewer.