Changeset 5682 for branches/2015/dev_r5072_UKMO2_OBS_simplification/NEMOGCM/NEMO/OPA_SRC/OBS/obs_surf_def.F90
- Timestamp:
- 2015-08-12T17:46:45+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5072_UKMO2_OBS_simplification/NEMOGCM/NEMO/OPA_SRC/OBS/obs_surf_def.F90
r3651 r5682 67 67 & ntyp !: Type of surface observation product 68 68 69 CHARACTER(len=6), POINTER, DIMENSION(:) :: & 70 & cvars !: Variable names 71 69 72 CHARACTER(LEN=8), POINTER, DIMENSION(:) :: & 70 73 & cwmo !: WMO indentifier … … 130 133 !!* Local variables 131 134 INTEGER :: ji 135 INTEGER :: jvar 132 136 133 137 ! Set bookkeeping variables … … 140 144 surf%npi = kpi 141 145 surf%npj = kpj 146 147 ! Allocate arrays of size number of variables 148 149 ALLOCATE( & 150 & surf%cvars(kvar) & 151 & ) 152 153 DO jvar = 1, kvar 154 surf%cvars(jvar) = "NotSet" 155 END DO 142 156 143 157 ! Allocate arrays of number of surface data size … … 271 285 & ) 272 286 287 ! Dellocate arrays of size number of variables 288 289 DEALLOCATE( & 290 & surf%cvars & 291 & ) 292 273 293 END SUBROUTINE obs_surf_dealloc 274 294 … … 392 412 ! Set book keeping variables which do not depend on number of obs. 393 413 394 newsurf%nstp = surf%nstp 414 newsurf%nstp = surf%nstp 415 newsurf%cvars(:) = surf%cvars(:) 395 416 396 417 ! Deallocate temporary data
Note: See TracChangeset
for help on using the changeset viewer.