Changeset 2977 for branches/2011/dev_LOCEAN_2011/NEMOGCM/NEMO/OPA_SRC/OBS
- Timestamp:
- 2011-10-22T15:46:41+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_LOCEAN_2011/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90
r2733 r2977 1011 1011 & rday 1012 1012 USE oce, ONLY : & ! Ocean dynamics and tracers variables 1013 & tn, & 1014 & sn, & 1013 & tsn, & 1015 1014 & un, vn, & 1016 1015 & sshn … … 1066 1065 DO jprofset = 1, nprofsets 1067 1066 IF ( ld_enact(jprofset) ) THEN 1068 CALL obs_pro_opt( prodatqc(jprofset), & 1069 & kstp, jpi, jpj, jpk, nit000, idaystp, tn, sn,& 1070 & gdept_0, tmask, n1dint, n2dint, & 1067 CALL obs_pro_opt( prodatqc(jprofset), & 1068 & kstp, jpi, jpj, jpk, nit000, idaystp, & 1069 & tsn(:,:,:,jp_tem), tsn(:,:,:,jp_sal), & 1070 & gdept_0, tmask, n1dint, n2dint, & 1071 1071 & kdailyavtypes = endailyavtypes ) 1072 1072 ELSE 1073 CALL obs_pro_opt( prodatqc(jprofset), & 1074 & kstp, jpi, jpj, jpk, nit000, idaystp, tn, sn,& 1073 CALL obs_pro_opt( prodatqc(jprofset), & 1074 & kstp, jpi, jpj, jpk, nit000, idaystp, & 1075 & tsn(:,:,:,jp_tem), tsn(:,:,:,jp_sal), & 1075 1076 & gdept_0, tmask, n1dint, n2dint ) 1076 1077 ENDIF … … 1091 1092 DO jsstset = 1, nsstsets 1092 1093 CALL obs_sst_opt( sstdatqc(jsstset), & 1093 & kstp, jpi, jpj, nit000, t n(:,:,1), &1094 & kstp, jpi, jpj, nit000, tsn(:,:,1,jp_tem), & 1094 1095 & tmask(:,:,1), n2dint ) 1095 1096 END DO
Note: See TracChangeset
for help on using the changeset viewer.