Changeset 10666
- Timestamp:
- 2019-02-13T11:45:33+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_obs_oper_update_fabm_fix/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90
r10623 r10666 996 996 #elif defined key_fabm 997 997 ! Add all chlorophyll groups from ERSEM 998 zprofvar(:,:,:,1) = trn(:,:,:,jp_fabm_ chl1) + trn(:,:,:,jp_fabm_chl2) + &999 & trn(:,:,:,jp_fabm_ chl3) + trn(:,:,:,jp_fabm_chl4)998 zprofvar(:,:,:,1) = trn(:,:,:,jp_fabm_m1+jp_fabm_chl1) + trn(:,:,:,jp_fabm_m1+jp_fabm_chl2) + & 999 & trn(:,:,:,jp_fabm_m1+jp_fabm_chl3) + trn(:,:,:,jp_fabm_m1+jp_fabm_chl4) 1000 1000 #else 1001 1001 CALL ctl_stop( ' Trying to run plchltot observation operator', & … … 1034 1034 #elif defined key_fabm 1035 1035 ! Add all chlorophyll groups from ERSEM 1036 zprofvar(:,:,:,1) = trn(:,:,:,jp_fabm_ chl1) + trn(:,:,:,jp_fabm_chl2) + &1037 & trn(:,:,:,jp_fabm_ chl3) + trn(:,:,:,jp_fabm_chl4)1036 zprofvar(:,:,:,1) = trn(:,:,:,jp_fabm_m1+jp_fabm_chl1) + trn(:,:,:,jp_fabm_m1+jp_fabm_chl2) + & 1037 & trn(:,:,:,jp_fabm_m1+jp_fabm_chl3) + trn(:,:,:,jp_fabm_m1+jp_fabm_chl4) 1038 1038 #else 1039 1039 CALL ctl_stop( ' Trying to run pchltot observation operator', & … … 1050 1050 #elif defined key_fabm 1051 1051 ! Nitrate from ERSEM 1052 zprofvar(:,:,:,1) = trn(:,:,:,jp_fabm_ n3n)1052 zprofvar(:,:,:,1) = trn(:,:,:,jp_fabm_m1+jp_fabm_n3n) 1053 1053 #else 1054 1054 CALL ctl_stop( ' Trying to run pno3 observation operator', & … … 1065 1065 #elif defined key_fabm 1066 1066 ! Silicate from ERSEM 1067 zprofvar(:,:,:,1) = trn(:,:,:,jp_fabm_ n5s)1067 zprofvar(:,:,:,1) = trn(:,:,:,jp_fabm_m1+jp_fabm_n5s) 1068 1068 #else 1069 1069 CALL ctl_stop( ' Trying to run psi4 observation operator', & … … 1080 1080 #elif defined key_fabm 1081 1081 ! Phosphate from ERSEM 1082 zprofvar(:,:,:,1) = trn(:,:,:,jp_fabm_ n1p)1082 zprofvar(:,:,:,1) = trn(:,:,:,jp_fabm_m1+jp_fabm_n1p) 1083 1083 #else 1084 1084 CALL ctl_stop( ' Trying to run ppo4 observation operator', & … … 1095 1095 #elif defined key_fabm 1096 1096 ! Dissolved inorganic carbon from ERSEM 1097 zprofvar(:,:,:,1) = trn(:,:,:,jp_fabm_ o3c)1097 zprofvar(:,:,:,1) = trn(:,:,:,jp_fabm_m1+jp_fabm_o3c) 1098 1098 #else 1099 1099 CALL ctl_stop( ' Trying to run pdic observation operator', & … … 1125 1125 #elif defined key_fabm 1126 1126 ! pH from ERSEM 1127 zprofvar(:,:,:,1) = trn(:,:,:,jp_fabm_ o3ph)1127 zprofvar(:,:,:,1) = trn(:,:,:,jp_fabm_m1+jp_fabm_o3ph) 1128 1128 #else 1129 1129 CALL ctl_stop( ' Trying to run pph observation operator', & … … 1140 1140 #elif defined key_fabm 1141 1141 ! Oxygen from ERSEM 1142 zprofvar(:,:,:,1) = trn(:,:,:,jp_fabm_ o2o)1142 zprofvar(:,:,:,1) = trn(:,:,:,jp_fabm_m1+jp_fabm_o2o) 1143 1143 #else 1144 1144 CALL ctl_stop( ' Trying to run po2 observation operator', & … … 1224 1224 #elif defined key_fabm 1225 1225 ! Add all surface chlorophyll groups from ERSEM 1226 zsurfvar(:,:) = trn(:,:,1,jp_fabm_ chl1) + trn(:,:,1,jp_fabm_chl2) + &1227 & trn(:,:,1,jp_fabm_ chl3) + trn(:,:,1,jp_fabm_chl4)1226 zsurfvar(:,:) = trn(:,:,1,jp_fabm_m1+jp_fabm_chl1) + trn(:,:,1,jp_fabm_m1+jp_fabm_chl2) + & 1227 & trn(:,:,1,jp_fabm_m1+jp_fabm_chl3) + trn(:,:,1,jp_fabm_m1+jp_fabm_chl4) 1228 1228 #else 1229 1229 CALL ctl_stop( ' Trying to run slchltot observation operator', & … … 1241 1241 #elif defined key_fabm 1242 1242 ! Diatom surface chlorophyll from ERSEM 1243 zsurfvar(:,:) = trn(:,:,1,jp_fabm_ chl1)1243 zsurfvar(:,:) = trn(:,:,1,jp_fabm_m1+jp_fabm_chl1) 1244 1244 #else 1245 1245 CALL ctl_stop( ' Trying to run slchldia observation operator', & … … 1257 1257 #elif defined key_fabm 1258 1258 ! Add all non-diatom surface chlorophyll groups from ERSEM 1259 zsurfvar(:,:) = trn(:,:,1,jp_fabm_ chl2) + &1260 & trn(:,:,1,jp_fabm_ chl3) + trn(:,:,1,jp_fabm_chl4)1259 zsurfvar(:,:) = trn(:,:,1,jp_fabm_m1+jp_fabm_chl2) + & 1260 & trn(:,:,1,jp_fabm_m1+jp_fabm_chl3) + trn(:,:,1,jp_fabm_m1+jp_fabm_chl4) 1261 1261 #else 1262 1262 CALL ctl_stop( ' Trying to run slchlnon observation operator', & … … 1274 1274 #elif defined key_fabm 1275 1275 ! Dinoflagellate surface chlorophyll from ERSEM 1276 zsurfvar(:,:) = trn(:,:,1,jp_fabm_ chl4)1276 zsurfvar(:,:) = trn(:,:,1,jp_fabm_m1+jp_fabm_chl4) 1277 1277 #else 1278 1278 CALL ctl_stop( ' Trying to run slchldin observation operator', & … … 1290 1290 #elif defined key_fabm 1291 1291 ! Add diatom and dinoflagellate surface chlorophyll from ERSEM 1292 zsurfvar(:,:) = trn(:,:,1,jp_fabm_ chl1) + trn(:,:,1,jp_fabm_chl4)1292 zsurfvar(:,:) = trn(:,:,1,jp_fabm_m1+jp_fabm_chl1) + trn(:,:,1,jp_fabm_m1+jp_fabm_chl4) 1293 1293 #else 1294 1294 CALL ctl_stop( ' Trying to run slchlmic observation operator', & … … 1306 1306 #elif defined key_fabm 1307 1307 ! Nanophytoplankton surface chlorophyll from ERSEM 1308 zsurfvar(:,:) = trn(:,:,1,jp_fabm_ chl2)1308 zsurfvar(:,:) = trn(:,:,1,jp_fabm_m1+jp_fabm_chl2) 1309 1309 #else 1310 1310 CALL ctl_stop( ' Trying to run slchlnan observation operator', & … … 1322 1322 #elif defined key_fabm 1323 1323 ! Picophytoplankton surface chlorophyll from ERSEM 1324 zsurfvar(:,:) = trn(:,:,1,jp_fabm_ chl3)1324 zsurfvar(:,:) = trn(:,:,1,jp_fabm_m1+jp_fabm_chl3) 1325 1325 #else 1326 1326 CALL ctl_stop( ' Trying to run slchlpic observation operator', & … … 1338 1338 #elif defined key_fabm 1339 1339 ! Add all surface chlorophyll groups from ERSEM 1340 zsurfvar(:,:) = trn(:,:,1,jp_fabm_ chl1) + trn(:,:,1,jp_fabm_chl2) + &1341 & trn(:,:,1,jp_fabm_ chl3) + trn(:,:,1,jp_fabm_chl4)1340 zsurfvar(:,:) = trn(:,:,1,jp_fabm_m1+jp_fabm_chl1) + trn(:,:,1,jp_fabm_m1+jp_fabm_chl2) + & 1341 & trn(:,:,1,jp_fabm_m1+jp_fabm_chl3) + trn(:,:,1,jp_fabm_m1+jp_fabm_chl4) 1342 1342 #else 1343 1343 CALL ctl_stop( ' Trying to run schltot observation operator', & … … 1355 1355 #elif defined key_fabm 1356 1356 ! Add all surface phytoplankton carbon groups from ERSEM 1357 zsurfvar(:,:) = trn(:,:,1,jp_fabm_ p1c) + trn(:,:,1,jp_fabm_p2c) + &1358 & trn(:,:,1,jp_fabm_ p3c) + trn(:,:,1,jp_fabm_p4c)1357 zsurfvar(:,:) = trn(:,:,1,jp_fabm_m1+jp_fabm_p1c) + trn(:,:,1,jp_fabm_m1+jp_fabm_p2c) + & 1358 & trn(:,:,1,jp_fabm_m1+jp_fabm_p3c) + trn(:,:,1,jp_fabm_m1+jp_fabm_p4c) 1359 1359 #else 1360 1360 CALL ctl_stop( ' Trying to run slphytot observation operator', & … … 1372 1372 #elif defined key_fabm 1373 1373 ! Diatom surface phytoplankton carbon from ERSEM 1374 zsurfvar(:,:) = trn(:,:,1,jp_fabm_ p1c)1374 zsurfvar(:,:) = trn(:,:,1,jp_fabm_m1+jp_fabm_p1c) 1375 1375 #else 1376 1376 CALL ctl_stop( ' Trying to run slphydia observation operator', & … … 1388 1388 #elif defined key_fabm 1389 1389 ! Add all non-diatom surface phytoplankton carbon groups from ERSEM 1390 zsurfvar(:,:) = trn(:,:,1,jp_fabm_ p2c) + &1391 & trn(:,:,1,jp_fabm_ p3c) + trn(:,:,1,jp_fabm_p4c)1390 zsurfvar(:,:) = trn(:,:,1,jp_fabm_m1+jp_fabm_p2c) + & 1391 & trn(:,:,1,jp_fabm_m1+jp_fabm_p3c) + trn(:,:,1,jp_fabm_m1+jp_fabm_p4c) 1392 1392 #else 1393 1393 CALL ctl_stop( ' Trying to run slphynon observation operator', &
Note: See TracChangeset
for help on using the changeset viewer.
