Changeset 5972 for branches/2014/dev_r4650_UKMO14.5_SST_BIAS_CORRECTION/NEMOGCM/NEMO/OPA_SRC/DOM/domngb.F90
- Timestamp:
- 2015-12-02T09:52:20+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO14.5_SST_BIAS_CORRECTION/NEMOGCM/NEMO/OPA_SRC/DOM/domngb.F90
r5967 r5972 37 37 !! -> not good if located at too high latitude... 38 38 !!---------------------------------------------------------------------- 39 !40 39 REAL(wp) , INTENT(in ) :: plon, plat ! longitude,latitude of the point 41 40 INTEGER , INTENT( out) :: kii, kjj ! i-,j-index of the closes grid point … … 49 48 IF( nn_timing == 1 ) CALL timing_start('dom_ngb') 50 49 ! 51 CALL wrk_alloc( jpi, jpj,zglam, zgphi, zmask, zdist )50 CALL wrk_alloc( jpi,jpj, zglam, zgphi, zmask, zdist ) 52 51 ! 53 52 zmask(:,:) = 0._wp … … 76 75 ENDIF 77 76 ! 78 CALL wrk_dealloc( jpi, jpj,zglam, zgphi, zmask, zdist )77 CALL wrk_dealloc( jpi,jpj, zglam, zgphi, zmask, zdist ) 79 78 ! 80 79 IF( nn_timing == 1 ) CALL timing_stop('dom_ngb')
Note: See TracChangeset
for help on using the changeset viewer.